packages/deriver/tests/Unit/Deriver/Evaluator/Scope/BindingTest.php
1<?php
2
3declare (strict_types=1);
4
5namespace Tests\Unit\Deriver\Evaluator\Scope;
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\Evaluator;
12use Deriver\Deriver\Evaluator\EvaluatorConfig;
13use Deriver\Deriver\Evaluator\Index\DefinitionIndex;
14use Deriver\Deriver\Evaluator\Request\Budget;
15use Deriver\Deriver\Evaluator\Scope\Binding;
16use Deriver\Deriver\Evaluator\Scope\Context;
17use Deriver\Deriver\Evaluator\Scope\Frame;
18use Deriver\Deriver\Evaluator\TargetProfile;
19use Deriver\Deriver\Evaluator\Term;
20use Deriver\Deriver\Lowerer\Declaration\Index;
21use Deriver\Deriver\MicroEvaluatorConversion;
22use Deriver\Deriver\Parser\Node\File;
23use Deriver\Deriver\Parser\Parser;
24use Deriver\Deriver\Parser\ParserConfig;
25use Deriver\Deriver\Providers\ProviderExpansion;
26use Deriver\Deriver\Resolver\Resolver;
27use Deriver\Deriver\Sources\Path;
28use Deriver\Deriver\Sources\Source;
29use Deriver\Deriver\Sources\Sources;
30use PHPUnit\Framework\Attributes\CoversNothing;
31use PHPUnit\Framework\TestCase;
32
33#[CoversNothing]
34final class BindingTest extends TestCase
35{
36 public function testBindingRetainsTheCallerAndUnevaluatedRegister(): void
37 {
38 $source = 'function target($x){return $x+2;}';
39 $configuration = new DeriverConfig();
40 $budget = new Budget();
41 $contributions = new Contributions();
42 $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
43 $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
44 $contributions1 = $providers->contributions;
45 $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);
46 $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
47 $snapshotId = 'test';
48 $input = $providers->input;
49 $parser = new Parser(new ParserConfig($target->version));
50 $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));
51 $program = new Index($snapshotId, $trees);
52 $e = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
53 $symbol = 'target';
54 $graph = $e->context->index->graph($symbol);
55 self::assertNotNull($graph);
56 $f = new Frame($graph, 'source:' . $symbol);
57 $binding = new Binding($f, 'r0');
58 self::assertSame($f, $binding->frame);
59 self::assertSame(0, $e->context->referenceExpansions);
60 }
61 public function testValueAppliesTheCallingScalarModeToADemandedArgument(): void
62 {
63 $source = 'function target(){return "7";}';
64 $configuration = new DeriverConfig();
65 $budget = new Budget();
66 $contributions = new Contributions();
67 $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
68 $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
69 $contributions1 = $providers->contributions;
70 $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);
71 $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
72 $snapshotId = 'test';
73 $input = $providers->input;
74 $parser = new Parser(new ParserConfig($target->version));
75 $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));
76 $program = new Index($snapshotId, $trees);
77 $e = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
78 $symbol = 'target';
79 $graph = $e->context->index->graph($symbol);
80 self::assertNotNull($graph);
81 $frame = new Frame($graph, 'source:' . $symbol);
82 $operation = 'constant';
83 $instruction1 = array_values(array_filter($frame->graph->definitions, static fn ($instruction1): bool => $instruction1->operation === $operation))[0] ?? null;
84 $instruction = $instruction1;
85 self::assertNotNull($instruction);
86 $binding = new Binding($frame, $instruction->result);
87 self::assertSame(7, $binding->value($e, 'int', 64)->native());
88 }
89 public function testTruthRetainsTheOriginalValueBinding(): void
90 {
91 $source = 'function subject(){return 42;}';
92 $tree = (new Resolver())->resolve((new Parser(new ParserConfig('8.3')))->parse(new Source('a.php', '<?php ' . $source)));
93 $index = new DefinitionIndex(new Index('s', [$tree]));
94 $config = new EvaluatorConfig();
95 $engine = new Evaluator(new Context($index, $config, new Evaluators($config->target), new Budget()));
96 $graph = $index->graph('subject');
97 self::assertNotNull($graph);
98 $frame = new Frame($graph, 'source:subject');
99 $binding = new Binding($frame, $graph->returns()[0][1]);
100 self::assertSame(true, $binding->truth($engine, 'mixed', 32)->native());
101 self::assertSame(42, $binding->value($engine, 'mixed', 32)->native());
102 }
103
104 public function testFiniteDoesNotTruncateAnOrdinaryValueRead(): void
105 {
106 $source = 'function subject($x){return $x?0:($x?1:2);}';
107 $tree = (new Resolver())->resolve((new Parser(new ParserConfig('8.3')))->parse(new Source('a.php', '<?php ' . $source)));
108 $index = new DefinitionIndex(new Index('s', [$tree]));
109 $config = new EvaluatorConfig();
110 $engine = new Evaluator(new Context($index, $config, new Evaluators($config->target), new Budget()));
111 $graph = $index->graph('subject');
112 self::assertNotNull($graph);
113 $frame = new Frame($graph, 'source:subject');
114 $binding = new Binding($frame, $graph->returns()[0][1]);
115 $finite = $binding->finite($engine, 'mixed', 32, \Deriver\Deriver\Evaluator\Enumeration\Finite\Demand::truth());
116 $full = $binding->value($engine, 'mixed', 32);
117 self::assertSame([0,1], array_map(static fn (array $row) => $row[0]->native(), iterator_to_array((new \Deriver\Deriver\Evaluator\Enumeration\Choices())->alternatives($finite))));
118 self::assertSame([0,1,2], array_map(static fn (array $row) => $row[0]->native(), iterator_to_array((new \Deriver\Deriver\Evaluator\Enumeration\Choices())->alternatives($full))));
119 }
120}
121