packages/deriver/tests/Unit/Deriver/Evaluator/Invocation/DispatchTest.php

1<?php
2
3declare (strict_types=1);
4
5namespace Tests\Unit\Deriver\Evaluator\Invocation;
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\Request\Budget;
16use Deriver\Deriver\Evaluator\Scalar\Identity;
17use Deriver\Deriver\Evaluator\Scope\Context;
18use Deriver\Deriver\Evaluator\Scope\Frame;
19use Deriver\Deriver\Evaluator\TargetProfile;
20use Deriver\Deriver\Evaluator\Term;
21use Deriver\Deriver\Lowerer\Declaration\Index;
22use Deriver\Deriver\MicroEvaluatorConversion;
23use Deriver\Deriver\Parser\Node\File;
24use Deriver\Deriver\Parser\Parser;
25use Deriver\Deriver\Parser\ParserConfig;
26use Deriver\Deriver\Providers\ProviderExpansion;
27use Deriver\Deriver\Resolver\Resolver;
28use Deriver\Deriver\Sources\Path;
29use Deriver\Deriver\Sources\Source;
30use Deriver\Deriver\Sources\Sources;
31use PHPUnit\Framework\Attributes\CoversNothing;
32use PHPUnit\Framework\TestCase;
33
34#[CoversNothing]
35final class DispatchTest extends TestCase
36{
37    public function testApplyPreservesReceiverChoicesThroughInheritedMethods(): void
38    {
39        $source = 'class A{public $name="a";function get(){return $this->name;}}class B extends A{public $name="b";}function target($flag){$repo=$flag?new A:new B;return $repo->get();}';
40        $configuration = new DeriverConfig();
41        $budget = new Budget();
42        $contributions = new Contributions();
43        $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
44        $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
45        $contributions1 = $providers->contributions;
46        $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);
47        $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
48        $snapshotId = 'test';
49        $input = $providers->input;
50        $parser = new Parser(new ParserConfig($target->version));
51        $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));
52        $program = new Index($snapshotId, $trees);
53        $engine = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
54        $symbol = 'target';
55        $graph = $engine->context->index->graph($symbol);
56        self::assertNotNull($graph);
57        $values = array_map(static fn (array $choice) => $choice[0]->native(), iterator_to_array((new Choices())->alternatives($engine->returns(new Frame($graph, 'source:' . $symbol), 64)), false));
58        sort($values);
59        self::assertSame(['a', 'b'], $values);
60    }
61    public function testTargetKeepsPrivateMethodsLexicallyBound(): void
62    {
63        $source = 'class A{private function name(){return "private";}function get(){return $this->name();}}class B extends A{function name(){return "child";}}function target(){return (new B)->get();}';
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        $engine = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
78        $symbol = 'target';
79        $graph = $engine->context->index->graph($symbol);
80        self::assertNotNull($graph);
81        $alternatives = (new Choices())->alternatives($engine->returns(new Frame($graph, 'source:' . $symbol), 64));
82        $values = array_reduce(iterator_to_array($alternatives, false), static function (array $values, array $alternative): array {
83            [$value, $_] = $alternative;
84            $values[(new Identity())->key($value)] = $value;
85            return $values;
86        }, []);
87        self::assertCount(1, $values);
88        $resolvedValue = array_values($values)[0];
89        self::assertInstanceOf(Term::class, $resolvedValue);
90        self::assertSame('private', $resolvedValue->native());
91        self::assertArrayNotHasKey('B::name', $engine->context->bodies);
92    }
93}
94