1 files changed, 98 insertions, 0 deletions
diff --git a/tests/general/nargs.icn b/tests/general/nargs.icn
new file mode 100644
index 0000000..c556a36
--- /dev/null
+++ b/tests/general/nargs.icn
@@ -0,0 +1,98 @@
+#SRC: JCON
+
+#  check return values from args()
+
+#%#%  later: add graphics procedures
+
+procedure main()
+   nargs(abs, "abs")
+   nargs(acos, "acos")
+   nargs(any, "any")
+   nargs(args, "args")
+   nargs(asin, "asin")
+   nargs(atan, "atan")
+   nargs(bal, "bal")
+   nargs(center, "center")
+   nargs(char, "char")
+   nargs(close, "close")
+   nargs(collect, "collect")
+   nargs(copy, "copy")
+   nargs(cos, "cos")
+   nargs(cset, "cset")
+   nargs(delay, "delay")
+   nargs(delete, "delete")
+   nargs(detab, "detab")
+   nargs(display, "display")
+   nargs(dtor, "dtor")
+   nargs(entab, "entab")
+   nargs(errorclear, "errorclear")
+   nargs(exit, "exit")
+   nargs(exp, "exp")
+   nargs(find, "find")
+   nargs(flush, "flush")
+   nargs(function, "function")
+   nargs(get, "get")
+   nargs(getenv, "getenv")
+   nargs(iand, "iand")
+   nargs(icom, "icom")
+   nargs(image, "image")
+   nargs(insert, "insert")
+   nargs(integer, "integer")
+   nargs(ior, "ior")
+   nargs(ishift, "ishift")
+   nargs(ixor, "ixor")
+   nargs(key, "key")
+   nargs(left, "left")
+   nargs(list, "list")
+   nargs(log, "log")
+   nargs(many, "many")
+   nargs(map, "map")
+   nargs(match, "match")
+   nargs(member, "member")
+   nargs(move, "move")
+   nargs(name, "name")
+   nargs(numeric, "numeric")
+#  nargs(open, "open")       # not checked: varies depending on #ifdef Graphics
+   nargs(ord, "ord")
+   nargs(pop, "pop")
+   nargs(pos, "pos")
+   nargs(proc, "proc")
+   nargs(pull, "pull")
+   nargs(push, "push")
+   nargs(put, "put")
+   nargs(read, "read")
+   nargs(reads, "reads")
+   nargs(real, "real")
+   nargs(remove, "remove")
+   nargs(rename, "rename")
+   nargs(repl, "repl")
+   nargs(reverse, "reverse")
+   nargs(right, "right")
+   nargs(rtod, "rtod")
+   nargs(runerr, "runerr")
+   nargs(seek, "seek")
+   nargs(seq, "seq")
+   nargs(serial, "serial")
+   nargs(set, "set")
+   nargs(sin, "sin")
+   nargs(sort, "sort")
+   nargs(sortf, "sortf")
+   nargs(sqrt, "sqrt")
+   nargs(stop, "stop")
+   nargs(string, "string")
+   nargs(system, "system")
+   nargs(tab, "tab")
+   nargs(table, "table")
+   nargs(tan, "tan")
+   nargs(trim, "trim")
+   nargs(type, "type")
+   nargs(upto, "upto")
+   nargs(variable, "variable")
+   nargs(where, "where")
+   nargs(write, "write")
+   nargs(writes, "writes")
+end
+
+procedure nargs(p, s)
+   write(right(args(p),3), " ", s)
+end