From 953daeb90731849db429a3498fa922b60466b73d Mon Sep 17 00:00:00 2001
From: James Roseborough <james.roseborough@luaj.org>
Date: Wed, 16 Jul 2008 20:04:44 +0000
Subject: [PATCH] Add table argument type check tests.

---
 src/test/errors/args.lua         |  2 +-
 src/test/errors/tablelibargs.lua | 52 ++++++++++++++++++++++++++++++++
 2 files changed, 53 insertions(+), 1 deletion(-)
 create mode 100644 src/test/errors/tablelibargs.lua

diff --git a/src/test/errors/args.lua b/src/test/errors/args.lua
index 0ec07a19..96396f15 100644
--- a/src/test/errors/args.lua
+++ b/src/test/errors/args.lua
@@ -198,7 +198,7 @@ function checkallerrors( name, typesets, template )
 		local sig = signature(name,v)
 		local s,e = invoke( name, v )
 		if not s then
-			if string.match(e, template) then
+			if string.find(e, template, 1, true) then
 				print( ok, sig, '...'..template..'...' )
 			else
 				print( badmsg, sig, "template='"..template.."' actual='"..e.."'" )
diff --git a/src/test/errors/tablelibargs.lua b/src/test/errors/tablelibargs.lua
new file mode 100644
index 00000000..92f90e98
--- /dev/null
+++ b/src/test/errors/tablelibargs.lua
@@ -0,0 +1,52 @@
+package.path = "?.lua;src/test/errors/?.lua"
+require 'args'
+
+-- arg type tests for table library functions
+
+-- table.concat
+local somestringstable = {{8,7,6,5,4,3,2,1,}}
+local somenonstringtable = {{true,true,true,true,true,true,true,true,}}
+local somesep = {',',1.23}
+local notasep = {aboolean,atable,afunction}
+local somei = {2,'2','2.2'}
+local somej = {4,'4','4.4'}
+local notij = {astring,aboolean,atable,afunction}
+banner('table.concat')
+checkallpass('table.concat',{somestringstable})
+checkallpass('table.concat',{somestringstable,somesep})
+checkallpass('table.concat',{somestringstable,{'-'},somei})
+checkallpass('table.concat',{somestringstable,{'-'},{2},somej})
+checkallerrors('table.concat',{notatable},'bad argument #1')
+checkallerrors('table.concat',{somenonstringtable},'table contains non-strings')
+checkallerrors('table.concat',{somestringstable,notasep},'bad argument #2')
+checkallerrors('table.concat',{somestringstable,{'-'},notij},'bad argument #3')
+checkallerrors('table.concat',{somestringstable,{'-'},{2},notij},'bad argument #4')
+
+-- table.insert
+banner('table.insert')
+checkallpass('table.insert',{sometable,notanil})
+checkallpass('table.insert',{sometable,somei,notanil})
+checkallerrors('table.insert',{notatable,somestring},'bad argument #1')
+checkallerrors('table.insert',{sometable,notij,notanil},'bad argument #2')
+
+-- table.maxn
+banner('table.maxn')
+checkallpass('table.maxn',{sometable})
+checkallerrors('table.maxn',{notatable},'bad argument #1')
+
+-- table.remove
+banner('table.remove')
+checkallpass('table.remove',{sometable})
+checkallpass('table.remove',{sometable,somei})
+checkallerrors('table.remove',{notatable},'bad argument #1')
+checkallerrors('table.remove',{notatable,somei},'bad argument #1')
+checkallerrors('table.remove',{sometable,notij},'bad argument #2')
+
+-- table.sort
+local somecomp = {nil,afunction}
+local notacomp = {astring,anumber,aboolean,atable}
+banner('table.sort')
+checkallpass('table.sort',{somestringstable,somecomp})
+checkallerrors('table.sort',{sometable},'attempt to compare')
+checkallerrors('table.sort',{notatable,somecomp},'bad argument #1')
+checkallerrors('table.sort',{sometable,notacomp},'bad argument #2')
\ No newline at end of file