From cdd34ac64a9a47a6b81a80a0c0d78fe96eef3217 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 14 Jul 2020 13:31:06 -0500 Subject: initial test set up --- gtwiwtg-test.lisp | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 gtwiwtg-test.lisp (limited to 'gtwiwtg-test.lisp') 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 ()) + -- cgit v1.2.3