add pend builtin function

1 files changed, 25 insertions, 0 deletions

diff --git a/tests/pend.bth b/tests/pend.bth
new file mode 100644
index 0000000..9a37f00
--- /dev/null
+++ b/tests/pend.bth
@@ -0,0 +1,25 @@
+(def xs [
+	(, 10)
+	(, [100 200])
+
+	(, 22 33)
+	(, 11 [111 222])
+	(, [333 444] 99)
+	(, [555 666] [777 888])
+
+	(, 10 11 12)
+	(, 10 11 [20 30])
+	(, 10 [222 333] 99)
+	(, 10 [22 33] [44 55])
+	(, [100 200] 33 44)
+	(, [100 200] 33 [444 555])
+	(, [100 200] [33 44] 55)
+	(, [100 200] [333 444] [555 666])
+
+	(, [])
+	(, [1])
+	(, 10 [])
+	(, [] 20)
+	(, [] [])	
+])
+(each (x xs) (say x))