diff options
| -rw-r--r-- | examples.lisp | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/examples.lisp b/examples.lisp index 831cb09..b515b98 100644 --- a/examples.lisp +++ b/examples.lisp @@ -13,20 +13,15 @@ "Hey, a docstring." :tests (:program test-fibble) - (= (1 2) 13) - (>= (1 2 :z 1) -5) - (:outputp (0 10 :z 0) (lambda (result) (equalp result 10))) - (:fails ("strings" "ain't" :z "numbers")) :end (+ x y z)) - (defvar *count*) (defun/t increment-count () "Increments the *count* variable." :tests - (:with-bindings ((*count* 4)) + (:let ((*count* 4)) (:afterp () (lambda () (= *count* 5))) (= () 6) (:outputp () (lambda (x) (= x 7)))) @@ -36,9 +31,9 @@ (defun/t other-increment-count (&optional (amount 1)) "Also increments the *count* variable by an optional amount." :tests - (:with-bindings ((*count* 10)) + (:let ((*count* 10)) (= () 11)) - (:with-bindings ((*count* 0)) + (:let ((*count* 0)) (= (10) 10) (:afterp (2) (lambda () (= *count* 12)))) :end |