From 9beee7b48fe0f1f757e28d602e3ddf91ba86b637 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 3 Oct 2022 09:17:31 -0500 Subject: Fix: more tests defined in the right package --- gtwiwtg-test.lisp | 11 +++++------ 1 file 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 -- cgit v1.2.3