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: 2 years ago
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);
    }
}