From a09383c29868f178ed14deac5a47977ebbf3ae5b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 5 Apr 2022 19:28:25 -0700 Subject: equal: test cases, documentation. --- testcases-cons | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) (limited to 'testcases-cons') 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 + +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 -- cgit v1.2.3