diff options
Diffstat (limited to 'testcases-cons')
| -rw-r--r-- | testcases-cons | 36 |
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 |