initial test set up

d3v3l0 · Jul 14, 2020 · cdd34ac · cdd34ac
1 parent 8c4ddae
commit cdd34ac
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 1 deletion.
diff --git a/gtwiwtg-test.asd 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
@@ -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
@@ -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))))