view test/call_suite/rand-sig.lua @ 459:8b6a39592f86

missed an include
author Tassilo Philipp
date Sat, 29 Jan 2022 12:25:44 +0100
parents 135c7fb49c2f
children d45c582b5457
line wrap: on
line source

require"config"

rtypes   = "v"..types

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