packages/deriver/tests/Unit/Deriver/Evaluator/Execution/Call/Contract/ExternalBodyTest.php

1<?php
2
3declare (strict_types=1);
4
5namespace Tests\Unit\Deriver\Evaluator\Execution\Call\Contract;
6
7use Deriver\Deriver\Contributions;
8use Deriver\Deriver\DeriverConfig;
9use Deriver\Deriver\Evaluator\Call\BoundInstruction;
10use Deriver\Deriver\Evaluator\Call\Evaluators;
11use Deriver\Deriver\Evaluator\Call\Extensions;
12use Deriver\Deriver\Evaluator\Call\Registrations;
13use Deriver\Deriver\Evaluator\Call\StateRegistry;
14use Deriver\Deriver\Evaluator\EvaluatorConfig;
15use Deriver\Deriver\Evaluator\Evidence\Frontier;
16use Deriver\Deriver\Evaluator\Execution\Call\Contract\ExternalBody;
17use Deriver\Deriver\Evaluator\Execution\Call\PassedArgument;
18use Deriver\Deriver\Evaluator\Execution\Call\UnknownCall;
19use Deriver\Deriver\Evaluator\Execution\Completion\Completion;
20use Deriver\Deriver\Evaluator\Execution\Completion\CompletionKind;
21use Deriver\Deriver\Evaluator\Execution\Context;
22use Deriver\Deriver\Evaluator\Execution\EvaluatorConfig as ExecutionEvaluatorConfig;
23use Deriver\Deriver\Evaluator\Execution\Havoc;
24use Deriver\Deriver\Evaluator\Execution\Memory\Location;
25use Deriver\Deriver\Evaluator\Execution\Memory\Memory;
26use Deriver\Deriver\Evaluator\Execution\State;
27use Deriver\Deriver\Evaluator\Request\Budget;
28use Deriver\Deriver\Evaluator\Request\QueryScope;
29use Deriver\Deriver\Evaluator\Request\ReturnQuery;
30use Deriver\Deriver\Evaluator\TargetProfile;
31use Deriver\Deriver\Evaluator\Term;
32use Deriver\Deriver\Evaluator\TermKind;
33use Deriver\Deriver\Execution\QueryExecution;
34use Deriver\Deriver\Lowerer\Declaration\CallableIdentity;
35use Deriver\Deriver\Lowerer\Declaration\CallableSource;
36use Deriver\Deriver\Lowerer\Declaration\Index;
37use Deriver\Deriver\Lowerer\Declaration\Indexer;
38use Deriver\Deriver\Lowerer\Declaration\Traits\Composition;
39use Deriver\Deriver\Lowerer\Graph\BasicBlock;
40use Deriver\Deriver\Lowerer\Graph\CallableGraph;
41use Deriver\Deriver\Lowerer\Graph\Instruction;
42use Deriver\Deriver\Lowerer\Graph\Parameter;
43use Deriver\Deriver\Lowerer\Graph\Terminator;
44use Deriver\Deriver\Lowerer\InstructionEmitter;
45use Deriver\Deriver\Lowerer\Lowerer;
46use Deriver\Deriver\Lowerer\LoweringScope;
47use Deriver\Deriver\MicroEvaluatorConversion;
48use Deriver\Deriver\Parser\Node\File;
49use Deriver\Deriver\Parser\Parser;
50use Deriver\Deriver\Parser\ParserConfig;
51use Deriver\Deriver\Parser\TargetSyntax;
52use Deriver\Deriver\Providers\ProviderExpansion;
53use Deriver\Deriver\Resolver\AssignmentPatterns;
54use Deriver\Deriver\Resolver\ClassScope;
55use Deriver\Deriver\Resolver\ExpressionValidation;
56use Deriver\Deriver\Resolver\MagicContext;
57use Deriver\Deriver\Resolver\Resolver;
58use Deriver\Deriver\SnapshotIdentity;
59use Deriver\Deriver\Sources\LineMap;
60use Deriver\Deriver\Sources\Path;
61use Deriver\Deriver\Sources\Source;
62use Deriver\Deriver\Sources\SourceRef;
63use Deriver\Deriver\Sources\Sources;
64use Deriver\Exception\ParserException;
65use Deriver\Exception\ResolutionException;
66use PHPUnit\Framework\Attributes\CoversClass;
67use PHPUnit\Framework\Attributes\Small;
68use PHPUnit\Framework\Attributes\UsesClass;
69use PHPUnit\Framework\TestCase;
70
71/**
72 * @covers \Deriver\Deriver\Evaluator\Execution\Call\Contract\ExternalBody
73 */
74#[UsesClass(Resolver::class)]
75#[UsesClass(ExpressionValidation::class)]
76#[UsesClass(ResolutionException::class)]
77#[UsesClass(ParserConfig::class)]
78#[UsesClass(ParserException::class)]
79#[CoversClass(ExternalBody::class)]
80#[UsesClass(BasicBlock::class)]
81#[UsesClass(CallableGraph::class)]
82#[UsesClass(CallableIdentity::class)]
83#[UsesClass(Instruction::class)]
84#[UsesClass(Parameter::class)]
85#[UsesClass(Terminator::class)]
86#[UsesClass(PassedArgument::class)]
87#[UsesClass(UnknownCall::class)]
88#[UsesClass(Completion::class)]
89#[UsesClass(Context::class)]
90#[UsesClass(Havoc::class)]
91#[UsesClass(State::class)]
92#[UsesClass(Location::class)]
93#[UsesClass(Memory::class)]
94#[UsesClass(Extensions::class)]
95#[UsesClass(Evaluators::class)]
96#[UsesClass(StateRegistry::class)]
97#[UsesClass(DeriverConfig::class)]
98#[UsesClass(Sources::class)]
99#[UsesClass(Path::class)]
100#[UsesClass(Source::class)]
101#[UsesClass(TargetProfile::class)]
102#[UsesClass(Budget::class)]
103#[UsesClass(QueryScope::class)]
104#[UsesClass(ReturnQuery::class)]
105#[UsesClass(SourceRef::class)]
106#[UsesClass(Frontier::class)]
107#[UsesClass(Parser::class)]
108#[UsesClass(File::class)]
109#[UsesClass(Lowerer::class)]
110#[UsesClass(InstructionEmitter::class)]
111#[UsesClass(LoweringScope::class)]
112#[UsesClass(CallableSource::class)]
113#[UsesClass(Indexer::class)]
114#[UsesClass(Index::class)]
115#[UsesClass(Composition::class)]
116#[UsesClass(LineMap::class)]
117#[UsesClass(MagicContext::class)]
118#[UsesClass(AssignmentPatterns::class)]
119#[UsesClass(ClassScope::class)]
120#[UsesClass(TargetSyntax::class)]
121#[UsesClass(Term::class)]
122#[Small]
123final class ExternalBodyTest extends TestCase
124{
125    public function testApplyRetainsReferenceEffectsAndPossibleExceptions(): void
126    {
127        $source = '<?php function target(&$value){}';
128        $budget = new Budget();
129        $configuration = new DeriverConfig();
130        $contributions = new Contributions();
131        $input = new Sources([new Source('fixture.php', $source)]);
132        $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
133        $providers = new ProviderExpansion($input, array_map(Term::fromNative(...), $configuration->environment), $contributions);
134        $contributions1 = $providers->contributions;
135        $evaluators = new Evaluators(new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision), new Registrations($contributions1->evaluators, $contributions1->providers, $contributions1->domains, $contributions1->intrinsics, $contributions1->stateSlots), $configuration->standardEvaluators);
136        $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
137        $identity = new SnapshotIdentity($providers->input, $settings, $evaluators, $providers->manifest);
138        $snapshotId = $identity->id;
139        $input1 = $providers->input;
140        $parser = new Parser(new ParserConfig($target->version));
141        $trees = array_map(static fn (Source $source1): File => (new Resolver())->resolve($parser->parse(new Source(Path::normalize($source1->path), $source1->contents, $source1->declarationsOnly))), iterator_to_array($input1, false));
142        $program1 = new Index($snapshotId, $trees);
143        $execution = new QueryExecution($program1, new ExecutionEvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators), $evaluators, $identity->snapshot(array_map(Frontier::fromDiagnostic(...), $program1->diagnostics())));
144        $snapshotId1 = 'test';
145        $input2 = new Sources([new Source('fixture.php', $source)]);
146        $profile = $execution->configuration->target;
147        $parser1 = new Parser(new ParserConfig($profile->version));
148        $trees1 = array_map(static fn (Source $source2): File => (new Resolver())->resolve($parser1->parse(new Source(Path::normalize($source2->path), $source2->contents, $source2->declarationsOnly))), iterator_to_array($input2, false));
149        $program = new Index($snapshotId1, $trees1);
150        $context = new Context($program, new ReturnQuery('target', budget: $budget), $execution->configuration, $execution->evaluators);
151        $body = $context->program->callable('target');
152        self::assertNotNull($body);
153        $state = new State();
154        $state->memory->write($state->local('value'), Term::constant(1));
155        $instruction = new BoundInstruction('external', 'external-body', $body->source, 'result');
156        $paths = (new ExternalBody($context))->apply($body, $instruction, $state);
157        self::assertCount(2, $paths);
158        self::assertSame(TermKind::Opaque, $paths[0]->memory->read($state->local('value'))->kind);
159        self::assertSame(CompletionKind::Throw, $paths[1]->completion->kind);
160    }
161}
162