io.streams.sequence: Add some tests

third one breaks if you mess up rewriting sequence-copy-unsafe too bad XD

diff --git a/core/io/streams/sequence/sequence-tests.factor b/core/io/streams/sequence/sequence-tests.factor
new file mode 100644 (file)
index 0000000..dfa9d5a
--- /dev/null
+++ b/core/io/streams/sequence/sequence-tests.factor
@@ -0,0 +1,27 @@
+! Copyright (C) 2022 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: io.streams.sequence io.streams.string kernel tools.test ;
+IN: io.streams.sequence.tests
+
+{
+    "abc" 102
+} [
+    "abcfdef" <string-reader>
+    "fd" swap sequence-read-until
+] unit-test
+
+{
+    "" 100
+} [
+    "abcfdef" <string-reader>
+    [ "fd" swap sequence-read-until 2drop ] keep "fd" swap sequence-read-until
+] unit-test
+
+{
+    "e" 102
+} [
+    "abcfdef" <string-reader>
+    [ "fd" swap sequence-read-until 2drop ] keep
+    [ "fd" swap sequence-read-until 2drop ] keep
+    "fd" swap sequence-read-until
+] unit-test