diff options
Diffstat (limited to 'test/main.lali')
| -rw-r--r-- | test/main.lali | 31 |
1 files changed, 12 insertions, 19 deletions
diff --git a/test/main.lali b/test/main.lali index 5ad4b55..a63cef7 100644 --- a/test/main.lali +++ b/test/main.lali @@ -3,11 +3,11 @@ (defun test (test-expr res) (newline) (princ - (list (fill ((differ (eval test-expr) res) '+) + (list (fill ((diff (eval test-expr) res) '+) ('f 'fail)) '--> test-expr)) (and success - (set 'success (fill ((differ (eval test-expr) res) t) + (set 'success (fill ((diff (eval test-expr) res) t) (f f))))) ;; atom @@ -17,23 +17,16 @@ (test '(atom '(x a)) f) ;(test '(atom 'a) undef) -;; dif -(test '(dif () 'b) t) -(test '(dif () ()) f) -(test '(dif 'a 'b) t) -(test '(dif 'a 'a) f) -(test '(dif 'a '(b . c)) t) -(test '(dif 'a '(b c)) t) -(test '(dif '(b . c) '(b . c)) t) -(test '(dif '(b c) '(b c)) t) - -;; differ -(test '(differ 'a ()) t) -(test '(differ () ()) f) -(test '(differ 'a '(b c)) t) -(test '(differ '(a b) '(b c)) t) -(test '(differ '(b . c) '(b . c)) f) -(test '(differ '(b c) '(b c)) f) +;; diff +(test '(diff 'a ()) t) +(test '(diff () 'b) t) +(test '(diff () ()) f) +(test '(diff 'a 'b) t) +(test '(diff 'a 'a) f) +(test '(diff 'a '(b c)) t) +(test '(diff '(a b) '(b c)) t) +(test '(diff '(b . c) '(b . c)) f) +(test '(diff '(b c) '(b c)) f) ;; car (test '(car ()) ()) |