1 files changed, 29 insertions, 0 deletions
diff --git a/test/indirectbuiltin2.awk b/test/indirectbuiltin2.awk
new file mode 100644
index 00000000..6409f91a
--- /dev/null
+++ b/test/indirectbuiltin2.awk
@@ -0,0 +1,29 @@
+@load "ordchr"
+
+BEGIN {
+	o = "ord"		# check stack for indirect call of ext function
+	l = "length"		# check bad args for function of 1 argument
+	m = "match"		# check bad args for function of 3-4 argument
+	s = "systime"		# check bad args for function of 0 arguments
+
+	switch (test) {
+	case 0:
+		print "indirect, "  @o("A")
+		break
+	case 1:
+		print @l()
+		break
+	case 2:
+		print @l("a", "b")
+		break
+	case 3:
+		print @m(@/foo/)
+		break
+	case 4:
+		print @m(@/foo/, "bar", a, b)
+		break
+	case 5:
+		print @s("xxx")
+		break
+	}
+}