luaj/src/test/res/require.lua

-- unit tests for require() function
package.path = "?.lua;src/test/res/?.lua"
require 'ids'

-- tests on require
package.path='?.lua;src/test/res/?.lua'
function f( name )
	print( module( 'testmod', package.seeall ) )
	print( 'before', id(sample), id(bogus), id(_G[name]) );
	local status,result = pcall( require, name )
	if status then 
		print( 'pcall(require,"'..name..'")', status, id(result) )
		print( 'after', id(sample), id(bogus), id(_G[name]) );
	else
		print( 'pcall(require,"'..name..'")', status )
	end
end
f('sample')
print( 'main', id(sample), id(bogus), id(custom), id(req) );
f('sample')
print( 'main', id(sample), id(bogus), id(custom), id(req) );
f('bogus')
print( 'main', id(sample), id(bogus), id(custom), id(req) );
f( 'req.subsample' )
print( 'main', id(sample), id(bogus), id(custom), id(req) );

-- custom loader chain
local pl = package.loaders
for i=1,3 do
	print( i,id(package.loaders[i]) )
end
function loader1( ... ) 
	print ('in loader1', ...)
	return "loader1 didn't find anything"
end
function loader2( name, ... )
	print ('in loader2', ...)
	if name ~= 'custom' then
		message =  "name is not 'custom'"
		print ('loader2 is returning', message )
		return message
	end
	table = {}
	result = function()
		print( 'in loader function, returning', id(table) )
		return table 
	end
	print ('loader2 is returning', id(result) )
	return result
end
function loader3( ... )
	print ('in loader3', ...)
	return nil
end
package.loaders = { loader1, loader2, loader3 }
f( 'bogus' )
print( 'main', id(sample), id(bogus), id(custom), id(src) );
f( 'custom' )
print( 'main', id(sample), id(bogus), id(custom), id(src) );

-- good, and bad lua samples
function g(name)
	print( name, pcall(f,name) )
end
package.loaders = { function(...)
	print( 'in success loader', ... )
	return function(...)
		print( 'in success chunk', ... )
	end	
end }
pcall( g, 'require-sample-succeed' )
package.loaders = { function(...)
	print( 'in loader-error loader', ... )
	error( 'sample error thrown by loader-error loader')
	return function(...)
		print( 'in loader-error chunk', ... )
	end	
end }
pcall( g, 'require-sample-loader-error' )
package.loaders = { function(...)
	print( 'in chunk-error loader', ... )
	return function(...)
		error( 'sample error thrown by chunk-error function')
		print( 'in chunk-error chunk', ... )
	end	
end }
pcall( g, 'require-sample-chunk-error' )

-- good, and bad java samples
package.loaders = pl 
function g(name)
	print( name, pcall(f,name) )
	print( 'main', id(org) );
end
pcall( g, 'org.luaj.vm.require.RequireSampleClassCastExcep')
pcall( g, 'org.luaj.vm.require.RequireSampleLoadLuaError')
pcall( g, 'org.luaj.vm.require.RequireSampleLoadRuntimeExcep')
pcall( g, 'org.luaj.vm.require.RequireSampleSuccess')
pcall( g, 'org.luaj.vm.require.RequireSampleSuccess')