From cf9f90c19ba295d4ee1e3aa4f439645519cff486 Mon Sep 17 00:00:00 2001 From: MadMaurice Date: Thu, 8 Apr 2021 22:10:58 +0200 Subject: [PATCH] Fix cond.t cond.t was not actually using equal but cond works anyway. --- t/cond.t | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/t/cond.t b/t/cond.t index 51cd92c..107dac1 100644 --- a/t/cond.t +++ b/t/cond.t @@ -1,5 +1,6 @@ -(expect "cond" 2 - (cond ((> 1 2) 10) - (nil 20) - ((zerop 0) 2) - (t 10))) +(expect "cond" + (equal 'ok + (cond ((> 1 2) 'fail) + (nil 'fail) + ((zerop 0) 'ok) + (t 'fail))))