mirror of
https://github.com/peklaiho/madlisp.git
synced 2024-12-27 08:28:47 +00:00
37 lines
893 B
PHP
37 lines
893 B
PHP
<?php
|
|
/**
|
|
* MadLisp language
|
|
* @link http://madlisp.com/
|
|
* @copyright Copyright (c) 2020 Pekka Laiho
|
|
*/
|
|
|
|
use PHPUnit\Framework\TestCase;
|
|
|
|
use MadLisp\Env;
|
|
use MadLisp\MList;
|
|
use MadLisp\Symbol;
|
|
use MadLisp\UserFunc;
|
|
|
|
class UserFuncTest extends TestCase
|
|
{
|
|
public function testUserFunc()
|
|
{
|
|
$closure = fn ($a, $b) => $a + $b;
|
|
$ast = new MList();
|
|
$env = new Env("env");
|
|
$bindings = new MList([new Symbol('a'), new Symbol('b')]);
|
|
|
|
$fn = new UserFunc($closure, $ast, $env, $bindings, false);
|
|
|
|
$this->assertSame($ast, $fn->getAst());
|
|
$this->assertSame($bindings, $fn->getBindings());
|
|
|
|
$newEnv = $fn->getEnv([1, 2]);
|
|
$this->assertInstanceOf(Env::class, $newEnv);
|
|
$this->assertSame(['a' => 1, 'b' => 2], $newEnv->getData());
|
|
|
|
$result = $fn->call([1, 2]);
|
|
$this->assertSame(3, $result);
|
|
}
|
|
}
|