packages/deriver/tests/Unit/Deriver/Evaluator/Memory/AliasesTest.php
1<?php
2
3declare (strict_types=1);
4
5namespace Tests\Unit\Deriver\Evaluator\Memory;
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\Expression\Storage;
15use Deriver\Deriver\Evaluator\Index\DefinitionIndex;
16use Deriver\Deriver\Evaluator\Memory\Aliases;
17use Deriver\Deriver\Evaluator\Request\Budget;
18use Deriver\Deriver\Evaluator\Scalar\Identity;
19use Deriver\Deriver\Evaluator\Scope\Context;
20use Deriver\Deriver\Evaluator\Scope\Frame;
21use Deriver\Deriver\Evaluator\TargetProfile;
22use Deriver\Deriver\Evaluator\Term;
23use Deriver\Deriver\Lowerer\Declaration\Index;
24use Deriver\Deriver\MicroEvaluatorConversion;
25use Deriver\Deriver\Parser\Node\File;
26use Deriver\Deriver\Parser\Parser;
27use Deriver\Deriver\Parser\ParserConfig;
28use Deriver\Deriver\Providers\ProviderExpansion;
29use Deriver\Deriver\Resolver\Resolver;
30use Deriver\Deriver\Sources\Path;
31use Deriver\Deriver\Sources\Source;
32use Deriver\Deriver\Sources\Sources;
33use PHPUnit\Framework\Attributes\CoversNothing;
34use PHPUnit\Framework\TestCase;
35
36#[CoversNothing]
37final class AliasesTest extends TestCase
38{
39 public function testKeyTracksTheCellAssignedThroughAnotherName(): void
40 {
41 $source = 'function target(){$x=1;$y=&$x;$y=4;return $x;}';
42 $configuration = new DeriverConfig();
43 $budget = new Budget();
44 $contributions = new Contributions();
45 $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
46 $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
47 $contributions1 = $providers->contributions;
48 $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);
49 $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
50 $snapshotId = 'test';
51 $input = $providers->input;
52 $parser = new Parser(new ParserConfig($target->version));
53 $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));
54 $program = new Index($snapshotId, $trees);
55 $e = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
56 $symbol = 'target';
57 $graph = $e->context->index->graph($symbol);
58 self::assertNotNull($graph);
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(4, $resolvedValue->native());
69 }
70 public function testMapKeepsAnAliasBoundToItsCell(): void
71 {
72 $source = 'function target(){$x=1;$y=&$x;return $y;}';
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 $f = new Frame($graph, 'source:' . $symbol);
91 $s = new Storage($e);
92 $map = (new Aliases())->map($s, $f, 0, count($f->graph->body->blocks[0]->instructions));
93 self::assertSame('local:x', $map['local:y']);
94 }
95 public function testMergeMarksConflictingCellsInsteadOfUnitingThem(): void
96 {
97 self::assertSame(['x' => 'unresolved-alias:x'], (new Aliases())->merge([['x' => 'y'], []]));
98 }
99
100 public function testReturnedAliasesTheNamedReferenceArgument(): void
101 {
102 $source = new Source('subject.php', '<?php function &slot(&$first, &$second) { return $second; } function subject() { $a = 1; $b = 2; $alias =& slot(second: $b, first: $a); $alias = 17; return [$a, $b]; }');
103 $tree = (new Resolver())->resolve((new Parser(new ParserConfig('8.3')))->parse($source));
104 $index = new DefinitionIndex(new Index('test', [$tree]));
105 $profile = new TargetProfile('8.3');
106 $engine = new Evaluator(new Context($index, new EvaluatorConfig($profile), new Evaluators($profile), new Budget()));
107 $graph = $index->graph('subject');
108 self::assertNotNull($graph);
109 $value = $engine->returns(new Frame($graph, 'subject'), 64);
110 $alternatives = iterator_to_array((new Choices())->alternatives($value), false);
111 self::assertCount(1, $alternatives);
112 self::assertSame([1, 17], $alternatives[0][0]->native());
113 }
114}
115