Add argument type checks for basic library functions.

src/test/errors/args.lua

@@ -1,15 +1,22 @@
 -- utilities to check that args of various types pass or fail 
 -- argument type checking
 
-anylua = { nil, 'abc', 1.23, true, {aa=11,bb==22}, print }
+astring   = 'abc'
+anumber   = 1.23
+aboolean  = true
+atable    = {aa=11,bb=22}
+afunction = function() end
+anil      = nil
 
-somestring   = { 'abc' }
-somenumber   = { 1.23 }
-somestrnum   = { 'abc', 1.23 }
-someboolean  = { true }
-sometable    = { {aa=11,bb=22} }
-somefunction = { print }
-somenil      = { nil }
+anylua = { anil, astring, anumber, aboolean, atable, afunction }
+
+somestring   = { astring }
+somenumber   = { anumber }
+somestrnum   = { astring, anumber }
+someboolean  = { aboolean }
+sometable    = { atable }
+somefunction = { afunction }
+somenil      = { anil }
 
 local function contains(set,val)
 	local m = #set
@@ -18,7 +25,7 @@ local function contains(set,val)
 			return true 
 		end		
 	end
-	return false
+	return val == nil
 end
 	
 local function except(some)
@@ -56,6 +63,23 @@ local function signature(name,arglist)
 	return name..'('..table.concat(t,',')..')'
 end
 
+local function dup(t)
+	local s = {}
+	for i=1,#t do
+		s[i] = t[i]
+	end
+	return s
+end
+
+local function split(t)
+	local s = {}
+	local n = #t
+	for i=1,n-1 do
+		s[i] = t[i]
+	end
+	return s,t[n]
+end
+
 local function expand(argsets, typesets, ...)	
 	local n = typesets and #typesets or 0
 	if n <= 0 then
@@ -63,11 +87,9 @@ local function expand(argsets, typesets, ...)
 		return argsets
 	end
 
-	local t = typesets[1]
-	local s = {select(2,unpack(typesets))}
-	local m = #t
-	for i=1,m do
-		expand(argsets, s, t[i], ...)
+	local s,v = split(typesets)
+	for i=1,#v do
+		expand(argsets, s, v[i], ...)
 	end
 	return argsets
 end
@@ -77,6 +99,34 @@ local function arglists(typesets)
 	return ipairs(argsets)	
 end
 
+--[[
+local function expand(arglists,fixed,varying,...)
+	for i=1,#varying do
+		local f = dup(fixed)
+		
+	end
+end
+
+local function arglists(typesets)
+	local argsets = {}
+	local args={}
+	local n = typesets and #typesets or 0
+	if n == 0 then
+		table.insert( argsets, args )
+	end
+	for i=1,n do
+		local t = typesets[i]
+		for j=1,#t do
+			args[i] = t[j]
+			if i == n then 
+				table.insert( argsets, duptable(args) )
+			end
+		end
+	end
+	return ipairs(argsets)	
+end
+--]]
+
 local function lookup( name ) 
 	return loadstring('return '..name)()
 end
@@ -87,15 +137,30 @@ local function invoke( name, arglist )
 	return pcall(c, unpack(arglist)) 
 end
 
+-- messages, banners
+function banner(name)
+	print( '====== '..tostring(name)..' ======' )
+end
+
+local function subbanner(name)
+	print( '--- '..tostring(name) )
+end
+
+local ok = 'ok '
+local fail = 'fail '
+local needcheck = 'needcheck '
+local badmsg = 'badmsg '
+
 -- check that all combinations of arguments pass
 function checkallpass( name, typesets )
+	subbanner('checkallpass')
 	for i,v in arglists(typesets) do
 		local sig = signature(name,v)
 		local s,e = invoke( name, v )
 		if s then 
-			print( 'pass', sig )
+			print( ok, sig )
 		else
-			print( 'fail', sig, e )
+			print( fail, sig, e )
 		end
 	end
 end
@@ -103,31 +168,46 @@ end
 -- check that all combinations of arguments fail in some way, 
 -- ignore error messages
 function checkallfail( name, typesets )
+	subbanner('checkallfail')
 	for i,v in arglists(typesets) do
 		local sig = signature(name,v)
-		local s,e,f,g = invoke( name, v )
+		local s,e = invoke( name, v )
 		if not s then 
-			print( 'ok', sig )
+			print( ok, sig )
 		else
-			print( 'needcheck', sig, e, f, g )
+			print( needcheck, sig, e )
 		end
 	end
 end
 
+function checkfail( name, ... )
+	subbanner('checkfail')
+	local v = {...}
+	local sig = signature(name,v)
+	local s,e = invoke( name, v )
+	if not s then 
+		print( ok, sig )
+	else
+		print( needcheck, sig, e )
+	end
+end
+
 -- check that all combinations of arguments fail in some way, 
 -- ignore error messages
 function checkallerrors( name, typesets, template )
+	subbanner('checkallerrors')
+	template = tostring(template)
 	for i,v in arglists(typesets) do
 		local sig = signature(name,v)
-		local s,e,f,g = invoke( name, v )
+		local s,e = invoke( name, v )
 		if not s then
 			if string.match(e, template) then
-				print( 'ok', sig, 'template='..template )
+				print( ok, sig, '...'..template..'...' )
 			else
-				print( 'badmsg', sig, "template='"..template.."' actual='"..e.."'" )
+				print( badmsg, sig, "template='"..template.."' actual='"..e.."'" )
 			end
 		else
-			print( 'needcheck', sig, e, f, g )
+			print( needcheck, sig, e )
 		end
 	end
 end