diff options
author | Colin Okay <okay@toyful.space> | 2022-03-08 12:28:45 -0600 |
---|---|---|
committer | Colin Okay <okay@toyful.space> | 2022-03-08 12:28:45 -0600 |
commit | b19b9f2ba733790b1d8194aa9f3bba04a8e1df3f (patch) | |
tree | e2fa9827c747b681d4c610c1fa479a73fb8096db /examples.lisp | |
parent | abed60dd424a3e47ecf3f69e5b00bd759073be2c (diff) |
updated examples
Diffstat (limited to 'examples.lisp')
-rw-r--r-- | examples.lisp | 26 |
1 files changed, 19 insertions, 7 deletions
diff --git a/examples.lisp b/examples.lisp index df3de19..9ceb234 100644 --- a/examples.lisp +++ b/examples.lisp @@ -1,17 +1,16 @@ (defpackage :testiere.examples (:use #:cl) (:import-from #:testiere - #:defun+ - #:defmethod+)) + #:defun/t)) (in-package :testiere.examples) -(defun+ fibble (x y &key (z 10)) +(defun/t fibble (x y &key (z 10)) "Hey, a docstring." :tests (= (1 2) 13) (>= (1 2 :z 1) -5) - (:outputp (0 0 :z 0) (lambda (result) (equalp result 0))) + (:outputp (0 10 :z 0) (lambda (result) (equalp result 10))) (:fails ("strings" "ain't" :z "numbers")) :end (+ x y z)) @@ -19,24 +18,37 @@ (defvar *count*) -(defun+ increment-count () +(defun/t increment-count () "Increments the *count* variable." :tests (:with-bindings ((*count* 4)) (:afterp () (lambda () (= *count* 5))) - (= () 6) + (= () 6) (:outputp () (lambda (x) (= x 7)))) :end (incf *count*)) +(defun/t other-increment-count (&optional (amount 1)) + "Also increments the *count* variable by an optional amount." + :tests + (:with-bindings ((*count* 10)) + (= () 11)) + (:with-bindings ((*count* 0)) + (= (10) 10) + (:afterp (2) (lambda () (= *count* 12)))) + :end + (incf *count* amount)) + (defun just-a-function () (print "Just a function.")) -(defun+ call-just-a-function () +(defun/t call-just-a-function () "Calls JUST-A-FUNCTION." :tests (:with-stubs ((just-a-function () (print "TEMP JUST-A-FUNCTION."))) (equal () "TEMP JUST-A-FUNCTION.")) :end (just-a-function)) + + |