packages/deriver/tests/Unit/Deriver/Evaluator/Memory/PropertyOriginsTest.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\CallDecision;
10use Deriver\Deriver\Evaluator\Call\CallDescription;
11use Deriver\Deriver\Evaluator\Call\CallDescriptor;
12use Deriver\Deriver\Evaluator\Call\CallEvaluator;
13use Deriver\Deriver\Evaluator\Call\Evaluators;
14use Deriver\Deriver\Evaluator\Call\Plan\SemanticPlan;
15use Deriver\Deriver\Evaluator\Call\Registrations;
16use Deriver\Deriver\Evaluator\Enumeration\Choices;
17use Deriver\Deriver\Evaluator\Evaluator;
18use Deriver\Deriver\Evaluator\EvaluatorConfig;
19use Deriver\Deriver\Evaluator\Index\DefinitionIndex;
20use Deriver\Deriver\Evaluator\Invocation\Origin;
21use Deriver\Deriver\Evaluator\Memory\PropertyOrigins;
22use Deriver\Deriver\Evaluator\Request\Budget;
23use Deriver\Deriver\Evaluator\Scope\Context;
24use Deriver\Deriver\Evaluator\Scope\Frame;
25use Deriver\Deriver\Evaluator\TargetProfile;
26use Deriver\Deriver\Evaluator\Term;
27use Deriver\Deriver\Lowerer\Declaration\Index;
28use Deriver\Deriver\MicroEvaluatorConversion;
29use Deriver\Deriver\Parser\Node\File;
30use Deriver\Deriver\Parser\Parser;
31use Deriver\Deriver\Parser\ParserConfig;
32use Deriver\Deriver\Providers\ProviderExpansion;
33use Deriver\Deriver\Resolver\Resolver;
34use Deriver\Deriver\Sources\Path;
35use Deriver\Deriver\Sources\Source;
36use Deriver\Deriver\Sources\Sources;
37use Override;
38use PHPUnit\Framework\Attributes\CoversNothing;
39use PHPUnit\Framework\TestCase;
40
41#[CoversNothing]
42final class PropertyOriginsTest extends TestCase
43{
44    public function testInitialReadsOnlyTheDeclarationDefault(): void
45    {
46        $source = 'class Box{public $name="ledger";function target(){$this->name="changed";}}';
47        $configuration = new DeriverConfig();
48        $budget = new Budget();
49        $contributions = new Contributions();
50        $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
51        $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
52        $contributions1 = $providers->contributions;
53        $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);
54        $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
55        $snapshotId = 'test';
56        $input = $providers->input;
57        $parser = new Parser(new ParserConfig($target->version));
58        $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));
59        $program = new Index($snapshotId, $trees);
60        $engine = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
61        $property = $engine->context->index->property('Box', 'name');
62        self::assertNotNull($property);
63        self::assertSame('ledger', (new PropertyOrigins($engine))->initial($property, 64)->native());
64        self::assertSame([], $engine->context->bodies);
65    }
66    public function testValueAndWritesKeepCompoundStoredResults(): void
67    {
68        $source = 'class Box{public $name="ledger";function archive(){$this->name="ledger";$this->name.="_archive";}function target(){return $this->name;}}';
69        $configuration = new DeriverConfig();
70        $budget = new Budget();
71        $contributions = new Contributions();
72        $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
73        $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
74        $contributions1 = $providers->contributions;
75        $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);
76        $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
77        $snapshotId = 'test';
78        $input = $providers->input;
79        $parser = new Parser(new ParserConfig($target->version));
80        $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));
81        $program = new Index($snapshotId, $trees);
82        $engine = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
83        $symbol = 'Box::target';
84        $graph = $engine->context->index->graph($symbol);
85        self::assertNotNull($graph);
86        $frame = new Frame($graph, 'source:' . $symbol);
87        $property = $engine->context->index->property('Box', 'name');
88        self::assertNotNull($property);
89        $origins = new PropertyOrigins($engine);
90        $operation = 'field-address';
91        $instruction = array_values(array_filter($frame->graph->definitions, static fn ($instruction): bool => $instruction->operation === $operation))[0] ?? null;
92        self::assertNotNull($instruction);
93        $result = $origins->value($frame, $instruction, $property, 64);
94        $values = array_map(static fn (array $choice) => $choice[0]->native(), iterator_to_array((new Choices())->alternatives($result), false));
95        self::assertSame(['ledger', 'ledger', 'ledger_archive'], $values);
96        self::assertCount(3, $values);
97        $symbol1 = 'Box::archive';
98        $graph1 = $engine->context->index->graph($symbol1);
99        self::assertNotNull($graph1);
100        self::assertCount(2, $origins->writes($frame, (new Frame($graph1, 'source:' . $symbol1))->graph, $property, 64));
101    }
102    public function testWritesUsesTheReadBeforeEachMutation(): void
103    {
104        $source = 'class Box{public $n=1;function target(){$this->n=4;$this->n++;}}';
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        $engine = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
119        $symbol = 'Box::target';
120        $graph = $engine->context->index->graph($symbol);
121        self::assertNotNull($graph);
122        $frame = new Frame($graph, 'source:' . $symbol);
123        $property = $engine->context->index->property('Box', 'n');
124        self::assertNotNull($property);
125        $writes = (new PropertyOrigins($engine))->writes($frame, $frame->graph, $property, 64);
126        self::assertSame(4, $writes[0][0]->native());
127        self::assertSame(5, $writes[1][0]->native());
128    }
129    public function testSelectedWritesNeverEnterAReplacedBody(): void
130    {
131        $evaluator = new class (new CallDescriptor('change', '1', 'Box::change'), new SemanticPlan([])) implements CallEvaluator {
132            /**
133             * @param CallDescriptor $metadata Stable evaluator registration
134             * @param SemanticPlan $plan Ordered API semantics
135             */
136            public function __construct(public readonly CallDescriptor $metadata, public readonly SemanticPlan $plan)
137            {
138            }
139            /**
140             * @return CallDescriptor Stable registration
141             */
142            #[Override]
143            public function descriptor(): CallDescriptor
144            {
145                return $this->metadata;
146            }
147            /**
148             * @param CallDescription $call Selected target
149             * @return CallDecision Declarative fixture semantics
150             */
151            #[Override]
152            public function evaluate(CallDescription $call): CallDecision
153            {
154                return CallDecision::handled($this->plan);
155            }
156        };
157        $source = 'class Box{public $n=1;function change(){$this->n=9;}}';
158        $configuration = new DeriverConfig();
159        $budget = new Budget();
160        $contributions = new Contributions(evaluators: [$evaluator]);
161        $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
162        $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
163        $contributions1 = $providers->contributions;
164        $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);
165        $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
166        $snapshotId = 'test';
167        $input = $providers->input;
168        $parser = new Parser(new ParserConfig($target->version));
169        $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));
170        $program = new Index($snapshotId, $trees);
171        $engine = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
172        $symbol = 'Box::change';
173        $graph = $engine->context->index->graph($symbol);
174        self::assertNotNull($graph);
175        $frame = new Frame($graph, 'source:' . $symbol);
176        $property = $engine->context->index->property('Box', 'n');
177        self::assertNotNull($property);
178        [$inputs, $call] = (new Origin())->call($frame->graph);
179        self::assertSame([], (new PropertyOrigins($engine))->selectedWrites($frame, $inputs, $call, 'Box::change', $property, 64));
180        self::assertSame([], $engine->context->bodies);
181    }
182}
183