smuuf/primi

<?php

use \Tester\Assert;

use \Smuuf\Primi\Scope;
use \Smuuf\Primi\Values\{
    AbstractValue,
    StringValue,
    NumberValue,
    RegexValue,
    DictValue,
    ListValue,
    FuncValue,
};
use \Smuuf\Primi\Helpers\Interned;
use \Smuuf\Primi\Structures\FnContainer;

require __DIR__ . '/../bootstrap.php';

//
// Scopes and variables.
//

$scope = new Scope;

// Pool of variables is empty.
Assert::type('array', $v = $scope->getVariables());
Assert::falsey($v);

$varA = new NumberValue(123);
$varB = new StringValue("foo");
$scope->setVariable('var_a', $varA);
$scope->setVariable('var_b', $varB);

// The returned value instances Scope returned are the same objects as inserted.
Assert::same($varA, $scope->getVariable('var_a'));
Assert::same($varB, $scope->getVariable('var_b'));
Assert::same([
    'var_a' => $varA,
    'var_b' => $varB,
], $scope->getVariables());

// Pool of variables is not empty.
Assert::truthy($scope->getVariables());

$multi = [
    'var_c' => ($varC = Interned::bool(false)),
    'var_d' => ($varD = new RegexValue("[abc]")),
];

$scope->setVariables($multi);

// Test that all variables are present.
Assert::same([
    'var_a' => $varA,
    'var_b' => $varB,
    'var_c' => $varC,
    'var_d' => $varD,
], $scope->getVariables());

// Test accessing undefined variable.
Assert::null($scope->getVariable('some_undefined_variable'));

// Test automatic value creation from scalars.
$scope->setVariables([
    'var_e' => AbstractValue::buildAuto(123),
    'var_f' => AbstractValue::buildAuto("hello there!"),
    'var_g' => AbstractValue::buildAuto([1, 2, 3]),
    'var_h' => AbstractValue::buildAuto(['a' => 1, 'b' => 2, 'c' => 3]),
]);

Assert::type(NumberValue::class, $scope->getVariable('var_e'));
Assert::type(StringValue::class, $scope->getVariable('var_f'));
Assert::type(ListValue::class, $scope->getVariable('var_g'));
Assert::type(DictValue::class, $scope->getVariable('var_h'));
Assert::same("123", $scope->getVariable('var_e')->getCoreValue());
Assert::same("hello there!", $scope->getVariable('var_f')->getCoreValue());
Assert::type('array', $scope->getVariable('var_g')->getCoreValue());

//
// Functions.
//

$scope = new Scope;

// Pool of functions is empty.
Assert::type('array', $v = $scope->getVariables());
Assert::falsey($v);

// Create empty function container for testing purposes.
$fnContainer = FnContainer::buildFromClosure(function() {});

$funcA = new FuncValue($fnContainer);
$scope->setVariable('func_a', $funcA);

// The returned function instance Scope returned is the same object as inserted.
Assert::same($funcA, $scope->getVariable('func_a'));

// Pool of variables is not empty.
Assert::truthy($scope->getVariables());

$multi = [
    'func_b' => ($funcB = new FuncValue($fnContainer)),
    'func_c' => ($funcC = new FuncValue($fnContainer)),
];

$scope->setVariables($multi);

// Test that all variables are present (and in correct order).
Assert::same([
    'func_a'=> $funcA,
    'func_b'=> $funcB,
    'func_c'=> $funcC,
], $scope->getVariables());

// Test accessing undefined function.
Assert::null($scope->getVariable('some_undefined_function'));