From 6577a1d3c3e250ea9cd204baac4633e5e68ceabb Mon Sep 17 00:00:00 2001 From: Leah Neukirchen Date: Thu, 5 Jan 2023 23:36:34 +0100 Subject: add len>= --- tests/test.mew | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'tests') diff --git a/tests/test.mew b/tests/test.mew index 13817b0..837edd8 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -394,6 +394,16 @@ (test 3 (len (generator 5 6 7))) (test-error (len #t))) +(test-group "len>=" + (test #t (len>= '() 0)) + (test #f (len>= '() 1)) + (test #t (len>= '(1) 0)) + (test #t (len>= '(1 2 3) 2)) + (test #f (len>= '(1 2 3) 4)) + (test #t (len>= (generator 5 6 7) 2)) + (test #f (len>= (generator 5 6 7) 4)) + (test-error (len>= #t 0))) + (test-group "dup" (let* ((x (list (list "foo") "bar")) (y1 (dup x)) -- cgit 1.4.1