Graybyt3 Was Here

Linux business121.web-hosting.com 4.18.0-513.11.1.lve.el8.x86_64 #1 SMP Thu Jan 18 16:21:02 UTC 2024 x86_64
LiteSpeed
192.64.117.91

File Name : pairs.phpt

--TEST--
pairs() and __pairs
--FILE--
<?php
$lua = <<<LUA
	function pairs_test1()
		local t = { a = 1 }
		local f, s, var = pairs( t )
		if type( f ) == 'function' and s == t and var == nil then
			local k, v = f(t, var)
			if k == 'a' and v == 1 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) .. '\\tnil'
		end
	end

function pairs_test2()
		local t = { a = 1 }
		setmetatable( t, { __pairs = function () return 1, 2, 3 end } )
		local f, s, var = pairs( 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 pairs_test3()
		pairs()
		return "Fail: Should have thrown an error"
	end

function pairs_return()
		local data = { a = 1, b = 2 }
		local t = {}
		setmetatable( t, { __pairs = function () return pairs( data ) end } )
		return t
	end

function pairs_error()
		local t = {}
		setmetatable( t, { __pairs = function () error( "Error from __pairs function" ) end } )
		pairs( t )
		return "Fail: Should have thrown an error"
	end

function pairs_return_error()
		local t = {}
		setmetatable( t, { __pairs = function () error( "Error from __pairs function" ) end } )
		return t
	end

function pairs_next_error()
		local t = {}
		setmetatable( t, {
			__pairs = function ()
				return function() error( "Error from next function" ) end
			end
		} )
		for k, v in pairs( t ) do end
		return "Fail: Should have thrown an error"
	end

function pairs_return_next_error()
		local t = {}
		setmetatable( t, {
			__pairs = function ()
				return function() error( "Error from next function" ) end
			end
		} )
		return t
	end
LUA;

$tests = array(
	'Normal' => 'pairs_test1',
	'With __pairs' => 'pairs_test2',
	'No argument' => 'pairs_test3',
	'With __pairs throwing an error' => 'pairs_error',
	'With next func throwing an error' => 'pairs_next_error',
	'Table with __pairs returned to PHP' => 'pairs_return',
	'Table with __pairs throwing an error returned to PHP' => 'pairs_return_error',
	'Table with next func throwing an error returned to PHP' => 'pairs_return_next_error',
);

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

--EXPECT--
Normal: array (
  0 => 'Ok',
)
With __pairs: array (
  0 => 'Ok',
)
No argument: LuaSandboxError: [string ""]:32: bad argument #1 to 'pairs' (table expected, got no value)
With __pairs throwing an error: LuaSandboxError: [string ""]:45: Error from __pairs function
With next func throwing an error: LuaSandboxError: [string ""]:60: Error from next function
Table with __pairs returned to PHP: array (
  0 => 
  array (
    'a' => 1,
    'b' => 2,
  ),
)
Table with __pairs throwing an error returned to PHP: LuaSandboxError: [string ""]:52: Error from __pairs function
Table with next func throwing an error returned to PHP: LuaSandboxError: [string ""]:71: Error from next function

System Information
*ReClick For Close
File : BlackDragon /simple/function.php

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2024-08-03 06:30:29
..	dir	-	root/root	0755	2024-08-03 06:30:29
LuaSandboxFunction_construct.phpt	text/plain	253 B	root/root	0644	2024-07-25 04:05:53
array-key-conversion.phpt	text/plain	3.11 KB	root/root	0644	2024-07-25 04:05:53
call.phpt	text/plain	5.1 KB	root/root	0644	2024-07-25 04:05:53
callback_exception.phpt	text/plain	392 B	root/root	0644	2024-07-25 04:05:53
datatypes-unsupported.phpt	text/plain	2.78 KB	root/root	0644	2024-07-25 04:05:53
datatypes.phpt	text/plain	2.43 KB	root/root	0644	2024-07-25 04:05:53
dump_loadBinary_call.phpt	text/plain	393 B	root/root	0644	2024-07-25 04:05:53
errors-at-call-boundaries.phpt	text/plain	1.98 KB	root/root	0644	2024-07-25 04:05:53
extending-LuaSandbox.phpt	text/plain	845 B	root/root	0644	2024-07-25 04:05:53
ipairs.phpt	text/plain	1.53 KB	root/root	0644	2024-07-25 04:05:53
loadString.phpt	text/plain	334 B	root/root	0644	2024-07-25 04:05:53
lua_catches_php_exception.phpt	text/plain	1.34 KB	root/root	0644	2024-07-25 04:05:53
pairs.phpt	text/plain	3.31 KB	root/root	0644	2024-07-25 04:05:53
pcall.phpt	text/plain	1.27 KB	root/root	0644	2024-07-25 04:05:53
profiler-sorting.phpt	text/plain	1.18 KB	root/root	0644	2024-07-25 04:05:53
profiler.phpt	text/plain	1.54 KB	root/root	0644	2024-07-25 04:05:53
reentrant.phpt	text/plain	1.1 KB	root/root	0644	2024-07-25 04:05:53
xpcall.phpt	text/plain	2.6 KB	root/root	0644	2024-07-25 04:05:53