equal: test cases, documentation.

1 files changed, 36 insertions, 0 deletions

diff --git a/testcases-cons b/testcases-cons
index 99c150b..d95dbef 100644
--- a/testcases-cons
+++ b/testcases-cons
@@ -338,3 +338,39 @@ nil 0 1 -1.3 "abc" "a\"bc"
 abc "abc" #U
 (1 . 2) (1) (1 2 . 3)
 ((1) (2 . 3) 4 5)
+--
+23:
+$cppawk '
+#include <cons.h>
+
+BEGIN {
+  print equal("", undef), equal(0, 0), equal(-1, -1), equal("", "")
+  print equal("", "a"), equal(0, 1), equal(-1, 1), equal("Tabc", "xyz")
+  print equal("1", "1.0"), equal(box("abc"), "abc")
+  print equal(box(undef), box(undef))
+  print equal(cons("1", "2"), cons("1.0", "2.0"))
+  print equal(cons("1", "3"), cons("1.0", "2.0"))
+  print equal(cons("3", "2"), cons("1.0", "2.0"))
+  print equal(cons("1a", "2a"), cons("1b", "2b"))
+  print "brk"
+  print equal(box_str(1.0), 1.0)
+  print equal(box_str(1.0), box_str("1"))
+  print equal(box_str(1.0), box_str(1.0))
+  print equal(box_str(1.0), "1.0")
+  print equal("1.0", box_str(1.0))
+}'
+:
+1 1 1 1
+0 0 0 0
+1 1
+1
+1
+0
+0
+1
+brk
+1
+1
+1
+0
+0