From a3be4b993e6dda92cbb1c7be5433cf70bf8a0af4 Mon Sep 17 00:00:00 2001
From: Colin Okay <cbeok@protonmail.com>
Date: Tue, 4 Aug 2020 18:53:23 -0500
Subject: a few more tests

---
 gtwiwtg-test.lisp | 35 +++++++++--------------------------
 1 file changed, 9 insertions(+), 26 deletions(-)

(limited to 'gtwiwtg-test.lisp')

diff --git a/gtwiwtg-test.lisp b/gtwiwtg-test.lisp
index be8abcc..be79e23 100644
--- a/gtwiwtg-test.lisp
+++ b/gtwiwtg-test.lisp
@@ -96,32 +96,15 @@
                 (range :from 0 :by -5 :to -20 :inclusive t)))
     '(0 -5 -10 -15 -20 -50 -100 -150 -200 0 0 1 2 50 100 150 200))
 
-(is (concatenate 'string (collect (skip! 5 (seq "hellodude"))))
-    "dude")
-
-(is (take 4 (skip! 10 (range)))
-    '(10 11 12 13))
-
-(is (collect (skip-while! #'evenp (seq '(0 2 4 6 9 2 4 6 7 11))))
-    '(9 2 4 6 7 11))
-
-(destructuring-bind (a b c d) (nfurcate! 4 (seq "hello"))
-  (is (concatenate 'string
-                   (collect a)
-                   (collect b)
-                   (collect c)
-                   (collect d))
-      "hellohellohellohello"))
-
-(destructuring-bind (a b c d) (nfurcate! 4 (seq "hello"))
-  (is (concatenate 'string
-                   (collect (intersperse! a b c d)))
-      "hhhheeeelllllllloooo"))
-
-(destructuring-bind (a b c d) (disperse! 4 (seq "hhhheeeelllllllloooo"))
-  (is (concatenate 'string
-                   (collect (concat! a b c d)))
-      "hellohellohellohello"))
+(is (collect (intersperse! (times 5) (repeater 'a 'b 'c) (range :by -10)))
+    '(0 A 0 1 B -10 2 C -20 3 A -30 4 B -40))
+
+(is (collect (truncate! 20 (range)))
+    '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
+
+(is (pick-out '(4 1 1 4 2) (seq "generators"))
+    '(#\r #\e #\e #\r #\n))
+
 
  )
 
-- 
cgit v1.2.3