aboutsummaryrefslogtreecommitdiffhomepage
path: root/gtwiwtg-test.lisp
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-10-03 09:17:31 -0500
committerColin Okay <colin@cicadas.surf>2022-10-03 09:17:31 -0500
commit9beee7b48fe0f1f757e28d602e3ddf91ba86b637 (patch)
tree8656ab7ad3e106bf8593a5a8c8c1f2931d9d0748 /gtwiwtg-test.lisp
parentbe0d5d29f9c824052eced5d079a1ffe624ad6143 (diff)
Fix: more tests defined in the right package
Diffstat (limited to 'gtwiwtg-test.lisp')
-rw-r--r--gtwiwtg-test.lisp11
1 files changed, 5 insertions, 6 deletions
diff --git a/gtwiwtg-test.lisp b/gtwiwtg-test.lisp
index 6ca4c97..e1fbab6 100644
--- a/gtwiwtg-test.lisp
+++ b/gtwiwtg-test.lisp
@@ -3,8 +3,7 @@
(in-package :gtwiwtg-test)
-
-(defun test-resumables ()
+(defun gtwiwtg::test-resumables ()
(let ((foobar
(make-resumable! (range))))
(take 10 foobar)
@@ -12,7 +11,7 @@
(assert (equal (take 10 foobar)
'(10 11 12 13 14 15 16 17 18 19)))))
-(defun test-inflate! ()
+(defun gtwiwtg::test-inflate! ()
(let* ((keys (seq '(:name :occupation :hobbies)))
(vals (seq '("Buckaroo Banzai"
"Rocker"
@@ -23,14 +22,14 @@
:occupation "Rocker"
:hobbies ("Neuroscience" "Particle Physics" "Piloting Fighter Jets"))))))
-(defun test-concat! ()
+(defun gtwiwtg::test-concat! ()
(equal
'(1 2 3 a b c :e :f :g)
(collect (concat! (range :from 1 :to 4)
(seq '(a b c))
(seq '(:e :f :g))))))
-(defun test-merge! ()
+(defun gtwiwtg::test-merge! ()
(assert (equal
'(-10 -4 0 1 2 2 3 4 6 8 8 14 20 26)
(collect
@@ -39,7 +38,7 @@
(range :from 4 :to 10 :by 2)
(range :from -10 :to 28 :by 6))))))
-(defun test-intersperse! ()
+(defun gtwiwtg::test-intersperse! ()
(assert
(equal
'(:NAME "buckaroo banzai" :JOB "rocker" :HOBBIES