packages/deriver/tests/Unit/Deriver/Evaluator/Micro/ConfiguredEvaluatorTest.php

1<?php
2
3declare (strict_types=1);
4
5namespace Tests\Unit\Deriver\Evaluator\Micro;
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\Micro\ConfiguredEvaluator;
15use Deriver\Deriver\Evaluator\Micro\Request;
16use Deriver\Deriver\Evaluator\Request\Budget;
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 Deriver\Exception\EvaluationContractException;
32use LogicException;
33use PHPUnit\Framework\Attributes\CoversNothing;
34use PHPUnit\Framework\TestCase;
35
36#[CoversNothing]
37final class ConfiguredEvaluatorTest extends TestCase
38{
39    public function testEvaluateDeclinesOutsideItsSourceRangeWithoutRunningTheCallback(): void
40    {
41        $source = 'function target(){return 2+3;}';
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        $engine = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
56        $symbol = 'target';
57        $graph = $engine->context->index->graph($symbol);
58        self::assertNotNull($graph);
59        $frame = new Frame($graph, 'source:' . $symbol);
60        $operation = 'binary';
61        $instruction1 = array_values(array_filter($frame->graph->definitions, static fn ($instruction1): bool => $instruction1->operation === $operation))[0] ?? null;
62        $instruction = $instruction1;
63        self::assertNotNull($instruction);
64        $evaluator = new ConfiguredEvaluator('app.plus', '1', 'binary', '+', static fn (): Term => throw new LogicException('Unexpected evaluation'), start: $instruction->source->start + 1);
65        self::assertNull($evaluator->evaluate(new Request($engine, $frame, $instruction, 20)));
66        self::assertSame(0, $engine->context->evaluatorApplications);
67    }
68    public function testEvaluatePreservesTheCauseOfCallbackFailure(): void
69    {
70        $source = 'function target(){return 2+3;}';
71        $configuration = new DeriverConfig();
72        $budget = new Budget();
73        $contributions = new Contributions();
74        $target = new TargetProfile($configuration->phpVersion, $configuration->integerBits, $configuration->floatPrecision);
75        $providers = new ProviderExpansion(new Sources([new Source('candidate.php', '<?php ' . $source)]), array_map(Term::fromNative(...), $configuration->environment), $contributions);
76        $contributions1 = $providers->contributions;
77        $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);
78        $settings = new EvaluatorConfig($target, $providers->environment, $configuration->standardEvaluators, array_map((new MicroEvaluatorConversion())->convert(...), $configuration->evaluators));
79        $snapshotId = 'test';
80        $input = $providers->input;
81        $parser = new Parser(new ParserConfig($target->version));
82        $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));
83        $program = new Index($snapshotId, $trees);
84        $engine = new Evaluator(new Context(new DefinitionIndex($program), $settings, $evaluators, $budget));
85        $symbol = 'target';
86        $graph = $engine->context->index->graph($symbol);
87        self::assertNotNull($graph);
88        $frame = new Frame($graph, 'source:' . $symbol);
89        $cause = new LogicException('broken evaluation');
90        $evaluator = new ConfiguredEvaluator('app.broken', '1', 'binary', '+', static fn (): Term => throw $cause);
91        $operation = 'binary';
92        $instruction = array_values(array_filter($frame->graph->definitions, static fn ($instruction): bool => $instruction->operation === $operation))[0] ?? null;
93        self::assertNotNull($instruction);
94        try {
95            $evaluator->evaluate(new Request($engine, $frame, $instruction, 20));
96            self::fail('Expected a contract failure.');
97        } catch (EvaluationContractException $error) {
98            self::assertSame('app.broken: broken evaluation', $error->getMessage());
99            self::assertSame($cause, $error->getPrevious());
100        }
101    }
102}
103