--- a/test/call_suite/rand-sig.lua	Mon Mar 21 14:46:38 2022 +0100
+++ b/test/call_suite/rand-sig.lua	Mon Mar 21 16:06:16 2022 +0100
@@ -1,24 +1,6 @@
 require"config"
 
-rtypes   = "v"..types
+-- use shared sig generator
+package.path = '../common/?.lua;' .. package.path
+require"rand-sig"
 
-math.randomseed(seed)
-local id
-local uniq_sigs = { }
-for i = 1, ncases do
-  local l = ''
-  repeat
-    local nargs = math.random(minargs,maxargs)
-    id = math.random(#rtypes)
-    local sig = { rtypes:sub(id,id)}
-    for j = 1, nargs do
-      id = math.random(#types)
-      sig[#sig+1] = types:sub(id,id)
-    end
-	l = table.concat(sig)
-    -- reject dupes
-  until uniq_sigs[l] == nil
-  uniq_sigs[l] = 1
-  io.write(l.."\n")
-end
-