Login   Register  
PHP Classes
elePHPant
Icontem

File: tests/WebPower/LuaSandbox/Tests/LuaModuleTest.php

Recommend this page to a friend!
Stumble It! Stumble It! Bookmark in del.icio.us Bookmark in del.icio.us
  Classes of Christiaan Baartse  >  Lua sandbox  >  tests/WebPower/LuaSandbox/Tests/LuaModuleTest.php  >  Download  
File: tests/WebPower/LuaSandbox/Tests/LuaModuleTest.php
Role: Unit test script
Content type: text/plain
Description: Unit test script
Class: Lua sandbox
Run Lua language code integrated with PHP code
Author: By
Last change:
Date: 2012-11-03 03:41
Size: 4,123 bytes
 

Contents

Class file image Download
<?php
namespace WebPower\LuaSandbox\Tests;

use \Lua;

class LuaModuleTest extends \PHPUnit_Framework_TestCase
{
    private $callbackArg;

    protected function setUp()
    {
        $this->callbackArg = null;
    }

    function testCallbackUsage()
    {
        $sandbox = new Lua();
        $this->assertEquals(Lua::LUA_VERSION, $sandbox->getVersion());

        $res = $sandbox->registerCallback('phpCallback', array($this, 'luaCallback'));
        $this->assertSame($sandbox, $res);

        $res = $sandbox->assign('phpValue', 1337);
        $this->assertSame($sandbox, $res);

        $res = $sandbox->eval(<<<CODE
return phpCallback(phpValue);
CODE
        );
        $this->assertEquals(7331, $res);
        $this->assertEquals(1337, $this->callbackArg);
    }

    function luaCallback($arg)
    {
        $this->callbackArg = $arg;
        return 7331;
    }

    function testRegisterCallbackGeneratesError()
    {
        $this->setExpectedException('PHPUnit_Framework_Error');
        $sandbox = new Lua();
        $sandbox->registerCallback('phpCallback');
    }

    function testFaultyLuaGeneratesError()
    {
        $this->setExpectedException('PHPUnit_Framework_Error', 'Lua::eval(): lua error: [string "line"]:1: attempt to call global \'nonexitingFUnction\' (a nil value)');
        $sandbox = new Lua();
        $sandbox->eval(<<<CODE
nonexitingFUnction();
CODE
        );
    }

    function testListOfGlobalVars()
    {
        $sandbox = new Lua();
        $globals = array();
        $sandbox->registerCallback('phpCallback', function($key) use(&$globals) {
                $globals[] = $key;
            });

        $sandbox->eval(<<<CODE
    for n,v in pairs(_G) do
        phpCallback(n)
    end
CODE
        );

        $this->assertEquals(array(
                'string',
                'xpcall',
                'package',
                'tostring',
                'print',
                'os',
                'unpack',
                'require',
                'getfenv',
                'setmetatable',
                'next',
                'assert',
                'tonumber',
                'io',
                'rawequal',
                'collectgarbage',
                'getmetatable',
                'module',
                'rawset',
                'phpCallback',
                'math',
                'debug',
                'pcall',
                'table',
                'newproxy',
                'type',
                'coroutine',
                '_G',
                'select',
                'gcinfo',
                'pairs',
                'rawget',
                'loadstring',
                'ipairs',
                '_VERSION',
                'dofile',
                'setfenv',
                'load',
                'error',
                'loadfile',
            ), $globals);
    }

    function testUnsettingGlobalVars()
    {
        $this->setExpectedException('PHPUnit_Framework_Error', 'Lua::eval(): lua error: [string "line"]:2: attempt to call field \'exit\' (a nil value)');
        $sandbox = new Lua();
        $sandbox->eval(<<<CODE
os.exit = nil;
os.exit(1);
CODE
        );
    }

    function testUnsettingWholeOsTable()
    {
        $this->setExpectedException('PHPUnit_Framework_Error', 'Lua::eval(): lua error: [string "line"]:2: attempt to index global \'os\' (a nil value)');
        $sandbox = new Lua();
        $sandbox->eval(<<<CODE
_G.os = nil;
os.getenv('pwd');
CODE
        );
    }

    function testLuaClosure()
    {
        $sandbox = new Lua();
        $closure = $sandbox->eval(<<<CODE
return function(arg)
    return arg * 2;
end
CODE
        );
        $this->assertInstanceOf('LuaClosure', $closure);
        $this->assertEquals(2674, $sandbox->call($closure, array(1337)));

        unset($sandbox);
        $this->assertEquals(20, $closure(10));
    }

    function testEvalHasOwnLocalVars()
    {
        $sandbox = new Lua();
        $sandbox->eval(<<<CODE
local piet = 1337
CODE
        );
        $res = $sandbox->eval(<<<CODE
return piet
CODE
        );
        $this->assertNull($res);
    }
}