aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--examples.lisp42
1 files changed, 42 insertions, 0 deletions
diff --git a/examples.lisp b/examples.lisp
new file mode 100644
index 0000000..df3de19
--- /dev/null
+++ b/examples.lisp
@@ -0,0 +1,42 @@
+(defpackage :testiere.examples
+ (:use #:cl)
+ (:import-from #:testiere
+ #:defun+
+ #:defmethod+))
+
+(in-package :testiere.examples)
+
+(defun+ 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)))
+ (:fails ("strings" "ain't" :z "numbers"))
+ :end
+ (+ x y z))
+
+
+(defvar *count*)
+
+(defun+ increment-count ()
+ "Increments the *count* variable."
+ :tests
+ (:with-bindings ((*count* 4))
+ (:afterp () (lambda () (= *count* 5)))
+ (= () 6)
+ (:outputp () (lambda (x) (= x 7))))
+ :end
+ (incf *count*))
+
+
+(defun just-a-function ()
+ (print "Just a function."))
+
+(defun+ 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))