aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--gtwiwtg-test.asd6
-rw-r--r--gtwiwtg-test.lisp10
-rw-r--r--gtwiwtg.asd3
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))))