100 lines
2.7 KiB
Lua
100 lines
2.7 KiB
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')
|