Fix cond.t

cond.t was not actually using equal but cond works anyway.
2021-04-08 22:10:58 +02:00 · 2021-04-08 22:10:58 +02:00 · cf9f90c19b
parent 46d904535a
commit cf9f90c19b
1 changed files with 6 additions and 5 deletions
--- a/t/cond.t
+++ b/t/cond.t
@ -1,5 +1,6 @@
-(expect "cond" 2
+(expect "cond"
-        (cond ((> 1 2) 10)
+        (equal 'ok
-              (nil 20)
+               (cond ((> 1 2) 'fail)
-              ((zerop 0) 2)
+                     (nil 'fail)
-              (t 10)))
+                     ((zerop 0) 'ok)
                     (t 'fail))))