packages/deriver/tests/Unit/Deriver/Evaluator/Recurrence/DefinitionsTest.php

1<?php
2
3declare (strict_types=1);
4
5namespace Tests\Unit\Deriver\Evaluator\Recurrence;
6
7use Deriver\Deriver\Contributions;
8use Deriver\Deriver\DeriverConfig;
9use Deriver\Deriver\Evaluator\Call\Evaluators;
10use Deriver\Deriver\Evaluator\Call\Registrations;
11use Deriver\Deriver\Evaluator\Enumeration\Choices;
12use Deriver\Deriver\Evaluator\Evaluator;
13use Deriver\Deriver\Evaluator\EvaluatorConfig;
14use Deriver\Deriver\Evaluator\Index\DefinitionIndex;
15use Deriver\Deriver\Evaluator\Recurrence\Definitions;
16use Deriver\Deriver\Evaluator\Request\Budget;
17use Deriver\Deriver\Evaluator\Scalar\Identity;
18use Deriver\Deriver\Evaluator\Scope\Context;
19use Deriver\Deriver\Evaluator\Scope\Frame;
20use Deriver\Deriver\Evaluator\TargetProfile;
21use Deriver\Deriver\Evaluator\Term;
22use Deriver\Deriver\Lowerer\Declaration\Index;
23use Deriver\Deriver\MicroEvaluatorConversion;
24use Deriver\Deriver\Parser\Node\File;
25use Deriver\Deriver\Parser\Parser;
26use Deriver\Deriver\Parser\ParserConfig;
27use Deriver\Deriver\Providers\ProviderExpansion;
28use Deriver\Deriver\Resolver\Resolver;
29use Deriver\Deriver\Sources\Path;
30use Deriver\Deriver\Sources\Source;
31use Deriver\Deriver\Sources\Sources;
32use PHPUnit\Framework\Attributes\CoversNothing;
33use PHPUnit\Framework\TestCase;
34
35#[CoversNothing]
36final class DefinitionsTest extends TestCase
37{
38    public function testValueInAnEvaluatorPlanSolvesOnlyTheDemandedFiniteRecurrence(): void
39    {
40        $source = 'function target(){$s=0;for($i=0;$i<4;$i++){$unused=missing();$s+=$i;}return $s;}';
41        $configuration = new DeriverConfig();
42        $budget = new Budget();
43        $contributions = new Contributions();
44        $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
45        $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
46        $contributions1 = $providers->contributions;
47        $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);
48        $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
49        $snapshotId = 'test';
50        $input = $providers->input;
51        $parser = new Parser(new ParserConfig($target->version));
52        $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($input, false));
53        $program = new Index($snapshotId, $trees);
54        $e = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
55        $symbol = 'target';
56        $graph = $e->context->index->graph($symbol);
57        self::assertNotNull($graph);
58        $e->context->evaluationEvidence->offsetSet($graph->body, new \Deriver\Deriver\Evaluator\Evidence\Node(\Deriver\Deriver\Evaluator\Evidence\EvidenceKind::EvaluatorApplication));
59        $alternatives = (new Choices())->alternatives($e->returns(new Frame($graph, 'source:' . $symbol), 64));
60        $values = array_reduce(iterator_to_array($alternatives, false), static function (array $values, array $alternative): array {
61            [$value, $_] = $alternative;
62            $values[(new Identity())->key($value)] = $value;
63            return $values;
64        }, []);
65        self::assertCount(1, $values);
66        $resolvedValue = array_values($values)[0];
67        self::assertInstanceOf(Term::class, $resolvedValue);
68        self::assertSame(6, $resolvedValue->native());
69    }
70    public function testVersionInAnEvaluatorPlanKeepsAnEarlierVersionSeparate(): void
71    {
72        $source = 'function target(){$s=2;for($i=0;$i<3;$i++){$s*=2;}return $s;}';
73        $configuration = new DeriverConfig();
74        $budget = new Budget();
75        $contributions = new Contributions();
76        $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
77        $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
78        $contributions1 = $providers->contributions;
79        $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);
80        $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
81        $snapshotId = 'test';
82        $input = $providers->input;
83        $parser = new Parser(new ParserConfig($target->version));
84        $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($input, false));
85        $program = new Index($snapshotId, $trees);
86        $e = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
87        $symbol = 'target';
88        $graph = $e->context->index->graph($symbol);
89        self::assertNotNull($graph);
90        $e->context->evaluationEvidence->offsetSet($graph->body, new \Deriver\Deriver\Evaluator\Evidence\Node(\Deriver\Deriver\Evaluator\Evidence\EvidenceKind::EvaluatorApplication));
91        $alternatives = (new Choices())->alternatives($e->returns(new Frame($graph, 'source:' . $symbol), 64));
92        $values = array_reduce(iterator_to_array($alternatives, false), static function (array $values, array $alternative): array {
93            [$value, $_] = $alternative;
94            $values[(new Identity())->key($value)] = $value;
95            return $values;
96        }, []);
97        self::assertCount(1, $values);
98        $resolvedValue = array_values($values)[0];
99        self::assertInstanceOf(Term::class, $resolvedValue);
100        self::assertSame(16, $resolvedValue->native());
101    }
102    public function testPostConditionInAnEvaluatorPlanKeepsTheMandatoryFirstBody(): void
103    {
104        $source = 'function target(){$x=1;do{$x+=2;}while(false);return $x;}';
105        $configuration = new DeriverConfig();
106        $budget = new Budget();
107        $contributions = new Contributions();
108        $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
109        $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
110        $contributions1 = $providers->contributions;
111        $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);
112        $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
113        $snapshotId = 'test';
114        $input = $providers->input;
115        $parser = new Parser(new ParserConfig($target->version));
116        $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($input, false));
117        $program = new Index($snapshotId, $trees);
118        $e = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
119        $symbol = 'target';
120        $graph = $e->context->index->graph($symbol);
121        self::assertNotNull($graph);
122        $e->context->evaluationEvidence->offsetSet($graph->body, new \Deriver\Deriver\Evaluator\Evidence\Node(\Deriver\Deriver\Evaluator\Evidence\EvidenceKind::EvaluatorApplication));
123        $alternatives = (new Choices())->alternatives($e->returns(new Frame($graph, 'source:' . $symbol), 64));
124        $values = array_reduce(iterator_to_array($alternatives, false), static function (array $values, array $alternative): array {
125            [$value, $_] = $alternative;
126            $values[(new Identity())->key($value)] = $value;
127            return $values;
128        }, []);
129        self::assertCount(1, $values);
130        $resolvedValue = array_values($values)[0];
131        self::assertInstanceOf(Term::class, $resolvedValue);
132        self::assertSame(3, $resolvedValue->native());
133    }
134    public function testParentsInAnEvaluatorPlanSeparatesTheFirstBodyFromLaterVersions(): void
135    {
136        $source = 'function target(){$x=0;do{$x++;}while($x<3);return $x;}';
137        $configuration = new DeriverConfig();
138        $budget = new Budget();
139        $contributions = new Contributions();
140        $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
141        $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
142        $contributions1 = $providers->contributions;
143        $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);
144        $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
145        $snapshotId = 'test';
146        $input = $providers->input;
147        $parser = new Parser(new ParserConfig($target->version));
148        $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($input, false));
149        $program = new Index($snapshotId, $trees);
150        $e = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
151        $symbol = 'target';
152        $graph = $e->context->index->graph($symbol);
153        self::assertNotNull($graph);
154        $e->context->evaluationEvidence->offsetSet($graph->body, new \Deriver\Deriver\Evaluator\Evidence\Node(\Deriver\Deriver\Evaluator\Evidence\EvidenceKind::EvaluatorApplication));
155        $alternatives = (new Choices())->alternatives($e->returns(new Frame($graph, 'source:' . $symbol), 64));
156        $values = array_reduce(iterator_to_array($alternatives, false), static function (array $values, array $alternative): array {
157            [$value, $_] = $alternative;
158            $values[(new Identity())->key($value)] = $value;
159            return $values;
160        }, []);
161        self::assertCount(1, $values);
162        $resolvedValue = array_values($values)[0];
163        self::assertInstanceOf(Term::class, $resolvedValue);
164        self::assertSame(3, $resolvedValue->native());
165    }
166    public function testPredecessorDoesNotChangeAnOrdinaryFrame(): void
167    {
168        $source = 'function target($x){return $x+2;}';
169        $configuration = new DeriverConfig();
170        $budget = new Budget();
171        $contributions = new Contributions();
172        $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
173        $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
174        $contributions1 = $providers->contributions;
175        $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);
176        $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
177        $snapshotId = 'test';
178        $input = $providers->input;
179        $parser = new Parser(new ParserConfig($target->version));
180        $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($input, false));
181        $program = new Index($snapshotId, $trees);
182        $e = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
183        $symbol = 'target';
184        $graph = $e->context->index->graph($symbol);
185        self::assertNotNull($graph);
186        $frame = new Frame($graph, 'source:' . $symbol);
187        self::assertSame($frame, (new Definitions($e))->predecessor($frame, 0, 0));
188    }
189}
190