diff options
| -rw-r--r-- | gtwiwtg-test.asd | 6 | ||||
| -rw-r--r-- | gtwiwtg-test.lisp | 10 | ||||
| -rw-r--r-- | gtwiwtg.asd | 3 |
3 files changed, 18 insertions, 1 deletions
diff --git a/gtwiwtg-test.asd b/gtwiwtg-test.asd new file mode 100644 index 0000000..59a4b04 --- /dev/null +++ b/gtwiwtg-test.asd @@ -0,0 +1,6 @@ +;;;; gtwiwtg-test.asd + +(asdf:defsystem #:gtwiwtg-test + :depends-on (:gtwiwtg :prove) + :defsystem-depends-on (:prove-asdf) + :components ((:test-file "gtwiwtg-test"))) diff --git a/gtwiwtg-test.lisp b/gtwiwtg-test.lisp new file mode 100644 index 0000000..c3aec34 --- /dev/null +++ b/gtwiwtg-test.lisp @@ -0,0 +1,10 @@ +(defpackage :gtwiwtg-test + (:use :cl :gtwiwtg :prove)) + +(in-package :gtwiwtg-test) + +(is (take 4 (range)) '(0 1 2 3)) +(is (collect (range :from 2 :to -1 :by -0.5)) + '(2.0 1.5 1.0 0.5 0.0 -0.5)) +(is ()) + diff --git a/gtwiwtg.asd b/gtwiwtg.asd index e19fca5..d30b7cb 100644 --- a/gtwiwtg.asd +++ b/gtwiwtg.asd @@ -7,4 +7,5 @@ :version "0.1.1" :serial t :components ((:file "package") - (:file "gtwiwtg"))) + (:file "gtwiwtg")) + :in-order-to ((test-op (test-op gtwiwtg-test)))) |