diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-10-03 09:17:31 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-10-03 09:17:31 -0500 |
| commit | 9beee7b48fe0f1f757e28d602e3ddf91ba86b637 (patch) | |
| tree | 8656ab7ad3e106bf8593a5a8c8c1f2931d9d0748 | |
| parent | be0d5d29f9c824052eced5d079a1ffe624ad6143 (diff) | |
Fix: more tests defined in the right package
| -rw-r--r-- | gtwiwtg-test.lisp | 11 |
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 |