(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))