From cdd34ac64a9a47a6b81a80a0c0d78fe96eef3217 Mon Sep 17 00:00:00 2001
From: Colin Okay <cbeok@protonmail.com>
Date: Tue, 14 Jul 2020 13:31:06 -0500
Subject: initial test set up

---
 gtwiwtg-test.asd  |  6 ++++++
 gtwiwtg-test.lisp | 10 ++++++++++
 gtwiwtg.asd       |  3 ++-
 3 files changed, 18 insertions(+), 1 deletion(-)
 create mode 100644 gtwiwtg-test.asd
 create mode 100644 gtwiwtg-test.lisp

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))))
-- 
cgit v1.2.3