Gecko [ touzafair.com ]

Name	Size	Permission
LuaSandboxFunction_construct.p...	253 B	-rw-r--r--
array-key-conversion.phpt	3.11 KB	-rw-r--r--
call.phpt	5.1 KB	-rw-r--r--
callback_exception.phpt	392 B	-rw-r--r--
datatypes-unsupported.phpt	2.78 KB	-rw-r--r--
datatypes.phpt	2.43 KB	-rw-r--r--
dump_loadBinary_call.phpt	393 B	-rw-r--r--
errors-at-call-boundaries.phpt	1.98 KB	-rw-r--r--
extending-LuaSandbox.phpt	845 B	-rw-r--r--
ipairs.phpt	1.53 KB	-rw-r--r--
loadString.phpt	334 B	-rw-r--r--
lua_catches_php_exception.phpt	1.34 KB	-rw-r--r--
pairs.phpt	3.31 KB	-rw-r--r--
pcall.phpt	1.27 KB	-rw-r--r--
profiler-sorting.phpt	1.18 KB	-rw-r--r--
profiler.phpt	1.54 KB	-rw-r--r--
reentrant.phpt	1.1 KB	-rw-r--r--
xpcall.phpt	2.6 KB	-rw-r--r--

Code Editor : datatypes.phpt

--TEST--
Data type round-tripping
--FILE--
<?php

function doTest( $test, $data ) {
	printf( "%-25s ", "$test:" );

$sandbox = new LuaSandbox;
	$sandbox->setMemoryLimit( 100000 );
	$sandbox->setCPULimit( 0.1 );
	try {
		$ret = $sandbox->loadString( 'return ...' )->call( $data );
		if ( is_array( $ret[0] ) ) {
			ksort( $ret[0], SORT_STRING );
		}
		printf( "%s\n", preg_replace( '/\s+/', ' ', var_export( $ret[0], 1 ) ) );
	} catch ( LuaSandboxError $e ) {
		printf( "EXCEPTION: %s\n", $e->getMessage() );
	}
}

doTest( 'null', null );
doTest( 'int', 123 );
if ( is_int( 17179869184 ) ) {
	doTest( 'long', 17179869184 );
} else {
	// Fake it for 32-bit systems
	printf( "%-25s %s\n", "long:", "17179869184" );
}
doTest( 'double', 3.125 );
doTest( 'NAN', NAN );
doTest( 'INF', INF );
doTest( 'true', true );
doTest( 'false', false );
doTest( 'string', 'foobar' );
doTest( 'empty string', '' );
doTest( 'string containing NULs', "foo\0bar" );
doTest( 'array', array( 'foo', 'bar' ) );
doTest( 'associative array', array( 'foo', 'bar' => 'baz' ) );

$var = 42;
doTest( 'array with reference', [ &$var ] );

$sandbox = new LuaSandbox;
$sandbox->setMemoryLimit( 100000 );
$sandbox->setCPULimit( 0.1 );
$func = $sandbox->wrapPhpFunction( function ( $x ) { return [ "FUNC: $x" ]; } );
try {
	$ret = $sandbox->loadString( 'return ...' )->call( $func );
	$ret2 = $ret[0]->call( "ok" );
	printf( "%-25s %s\n", "function, pass-through:", $ret2[0] );

$ret = $sandbox->loadString( 'f = ...; return f( "ok" )' )->call( $func );
	printf( "%-25s %s\n", "function, called:", $ret[0] );

$ret = $sandbox->loadString( 'return function ( x ) return "FUNC: " .. x end' )->call();
	$ret2 = $ret[0]->call( "ok" );
	printf( "%-25s %s\n", "function, returned:", $ret2[0] );
} catch ( LuaSandboxError $e ) {
	printf( "EXCEPTION: %s\n", $e->getMessage() );
}

--EXPECT--
null:                     NULL
int:                      123
long:                     17179869184
double:                   3.125
NAN:                      NAN
INF:                      INF
true:                     true
false:                    false
string:                   'foobar'
empty string:             ''
string containing NULs:   'foo' . "\0" . 'bar'
array:                    array ( 0 => 'foo', 1 => 'bar', )
associative array:        array ( 0 => 'foo', 'bar' => 'baz', )
array with reference:     array ( 0 => 42, )
function, pass-through:   FUNC: ok
function, called:         FUNC: ok
function, returned:       FUNC: ok

${this.title}

Code Editor : datatypes.phpt