--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/call_suite/rand-sig.lua	Thu Mar 19 22:24:28 2015 +0100
@@ -0,0 +1,19 @@
+require"config"
+
+rtypes   = "v"..types
+
+math.randomseed(2342)
+local sigs = { }
+local id
+for i = 1, ncases do
+  id = math.random(#rtypes)
+  local nargs = math.random(minargs,maxargs)
+  local sig   = { rtypes:sub(id,id)}
+  for j = 1, nargs do
+    id = math.random(#types)
+    sig[#sig+1] = types:sub(id,id)
+  end
+  io.write(table.concat(sig))
+  io.write("\n")
+end
+