diff options
| author | Colin Okay <cbeok@protonmail.com> | 2020-07-14 13:31:06 -0500 |
|---|---|---|
| committer | Colin Okay <cbeok@protonmail.com> | 2020-07-14 13:31:06 -0500 |
| commit | cdd34ac64a9a47a6b81a80a0c0d78fe96eef3217 (patch) | |
| tree | b892532413b9b697b4c9a120d2d7fd02843ac086 | |
| parent | 8c4ddae952469d7c97ccea76c8c8894b7be925e1 (diff) | |
initial test set up
| -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)))) |