packages/deriver/tests/Unit/Deriver/Evaluator/Memory/GlobalsTest.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\Index\DefinitionIndex;
15use Deriver\Deriver\Evaluator\Memory\Globals as Subject;
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 GlobalsTest extends TestCase
37{
38 public function testEffectUsesTheKnownCallPosition(): void
39 {
40 $source = 'function change(){global $g;$g=2;}function target(){global $g;$g=1;change();return $g;}';
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 $engine = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
55 $symbol = 'target';
56 $graph = $engine->context->index->graph($symbol);
57 self::assertNotNull($graph);
58 $alternatives = (new Choices())->alternatives($engine->returns(new Frame($graph, 'source:' . $symbol), 64));
59 $values = array_reduce(iterator_to_array($alternatives, false), static function (array $values, array $alternative): array {
60 [$value, $_] = $alternative;
61 $values[(new Identity())->key($value)] = $value;
62 return $values;
63 }, []);
64 self::assertCount(1, $values);
65 $resolvedValue = array_values($values)[0];
66 self::assertInstanceOf(Term::class, $resolvedValue);
67 self::assertSame(2, $resolvedValue->native());
68 }
69 public function testOriginFindsScriptInitializers(): void
70 {
71 $source = '$cfg=["x"=>3];function target(){global $cfg;return $cfg["x"];}';
72 $configuration = new DeriverConfig();
73 $budget = new Budget();
74 $contributions = new Contributions();
75 $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
76 $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
77 $contributions1 = $providers->contributions;
78 $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);
79 $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
80 $snapshotId = 'test';
81 $input = $providers->input;
82 $parser = new Parser(new ParserConfig($target->version));
83 $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));
84 $program = new Index($snapshotId, $trees);
85 $engine = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
86 $symbol = 'target';
87 $graph = $engine->context->index->graph($symbol);
88 self::assertNotNull($graph);
89 $alternatives = (new Choices())->alternatives($engine->returns(new Frame($graph, 'source:' . $symbol), 64));
90 $values = array_reduce(iterator_to_array($alternatives, false), static function (array $values, array $alternative): array {
91 [$value, $_] = $alternative;
92 $values[(new Identity())->key($value)] = $value;
93 return $values;
94 }, []);
95 self::assertCount(1, $values);
96 $resolvedValue = array_values($values)[0];
97 self::assertInstanceOf(Term::class, $resolvedValue);
98 self::assertSame(3, $resolvedValue->native());
99 }
100 public function testDeclaresDistinguishesLocalFromGlobal(): void
101 {
102 $source = 'function target(){global $g;return $g;}';
103 $configuration = new DeriverConfig();
104 $budget = new Budget();
105 $contributions = new Contributions();
106 $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
107 $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
108 $contributions1 = $providers->contributions;
109 $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);
110 $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
111 $snapshotId = 'test';
112 $input = $providers->input;
113 $parser = new Parser(new ParserConfig($target->version));
114 $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));
115 $program = new Index($snapshotId, $trees);
116 $engine = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
117 $symbol = 'target';
118 $graph = $engine->context->index->graph($symbol);
119 self::assertNotNull($graph);
120 $frame = new Frame($graph, 'source:' . $symbol);
121 self::assertTrue((new Subject())->declares($frame, 'g'));
122 self::assertFalse((new Subject())->declares($frame, 'local'));
123 }
124}
125