File Manager

X7ROOT File Manager

Current Path: /opt/alt/tests/alt-php82-pecl-luasandbox_4.1.2-2.el8/tests

opt / alt / tests / alt-php82-pecl-luasandbox_4.1.2-2.el8 / tests /

ðŸ“ ..
ðŸ“„ LuaSandboxFunction_construct.phpt(253 B)
ðŸ“„ array-key-conversion.phpt(3.11 KB)
ðŸ“„ call.phpt(5.1 KB)
ðŸ“„ callback_exception.phpt(392 B)
ðŸ“„ datatypes-unsupported.phpt(2.78 KB)
ðŸ“„ datatypes.phpt(2.43 KB)
ðŸ“„ dump_loadBinary_call.phpt(393 B)
ðŸ“„ errors-at-call-boundaries.phpt(1.98 KB)
ðŸ“„ extending-LuaSandbox.phpt(845 B)
ðŸ“„ ipairs.phpt(1.53 KB)
ðŸ“„ loadString.phpt(334 B)
ðŸ“„ lua_catches_php_exception.phpt(1.34 KB)
ðŸ“„ pairs.phpt(3.31 KB)
ðŸ“„ pcall.phpt(1.27 KB)
ðŸ“„ profiler-sorting.phpt(1.18 KB)
ðŸ“„ profiler.phpt(1.54 KB)
ðŸ“„ reentrant.phpt(1.1 KB)
ðŸ“„ xpcall.phpt(2.6 KB)

Editing: ipairs.phpt

--TEST--
ipairs() and __ipairs
--FILE--
<?php
$lua = <<<LUA
	function ipairs_test1()
		local t = { 'a' }
		local f, s, var = ipairs( t )
		if type( f ) == 'function' and s == t and var == 0 then
			local k, v = f(t, var)
			if k == 1 and v == 'a' then
				return "Ok"
			else
				return "Fail: First call returned " .. k .. "\\t" .. v
			end
		else
			return "Fail:\\n" ..
				tostring(f) .. '\\t' .. tostring(s) .. '\\t' .. tostring(var) .. '\\n' ..
				tostring(next) .. '\\t' .. tostring(t) .. '\\t0'
		end
	end

function ipairs_test2()
		local t = { 1 }
		setmetatable( t, { __ipairs = function () return 1, 2, 3 end } )
		local f, s, var = ipairs( t )
		if f == 1 and s == 2 and var == 3 then
			return "Ok"
		else
			return "Fail:\\n" ..
				tostring(f) .. '\\t' .. tostring(s) .. '\\t' .. tostring(var) .. '\\n' ..
				'1\\t2\\t3'
		end
	end

function ipairs_test3()
		ipairs()
		return "Fail: Should have thrown an error"
	end
LUA;

$tests = array(
	'Normal' => 'ipairs_test1',
	'With __ipairs' => 'ipairs_test2',
	'No argument' => 'ipairs_test3',
);

foreach ( $tests as $desc => $func ) {
	echo "$desc: ";
	$sandbox = new LuaSandbox;
	$sandbox->loadString( $lua )->call();
	$sandbox->setCPULimit( 0.25 );
	$sandbox->setMemoryLimit( 100000 );
	try {
		print implode("\n", $sandbox->callFunction( $func ) ) . "\n";
	} catch ( LuaSandboxError $e ) {
		echo "LuaSandboxError: " . $e->getMessage() . "\n";
	}
}

--EXPECT--
Normal: Ok
With __ipairs: Ok
No argument: LuaSandboxError: [string ""]:32: bad argument #1 to 'ipairs' (table expected, got no value)

X7ROOT File Manager

Editing: ipairs.phpt

Upload File

Create Folder