Add a unit test which fails on Windows

diff --git a/core/load.factor b/core/load.factor
index 80895875896c6feca5bd0971ee7e700586e5f0f9..051d8b7e29f592e8d4d033339c203ac69daa2710 100644 (file)
--- a/core/load.factor
+++ b/core/load.factor
@@ -124,7 +124,6 @@ PROVIDE: core
     "test/prettyprint.factor"
     "test/random.factor"
     "test/redefine.factor"
-    "test/stream.factor"
     "test/threads.factor"
     "test/tuple.factor"
     "test/words.factor"

diff --git a/core/test/io/empty-file.txt b/core/test/io/empty-file.txt
new file mode 100644 (file)
index 0000000..e69de29

diff --git a/core/test/io/io.factor b/core/test/io/io.factor
index f37124dcf2a43ea131c9bc81e4c4a58a398dce1b..da30d995d23f0edf9fea8e8950e4d79875e5250b 100644 (file)
--- a/core/test/io/io.factor
+++ b/core/test/io/io.factor
@@ -70,3 +70,21 @@ unit-test
     "/core/test/io/binary.txt" <resource-reader>
     [ 0.2 read ] with-stream
 ] unit-test
+
+[ { } ]
+[ "/core/test/io/empty-file.txt" <resource-reader> lines ]
+unit-test
+
+[ "xyzzy" ] [ [ "xyzzy" write ] string-out ] unit-test
+
+[ { "" } ] [ "" string-lines ] unit-test
+[ { "" "" } ] [ "\n" string-lines ] unit-test
+[ { "" "" } ] [ "\r" string-lines ] unit-test
+[ { "" "" } ] [ "\r\n" string-lines ] unit-test
+[ { "hello" } ] [ "hello" string-lines ] unit-test
+[ { "hello" "" } ] [ "hello\n" string-lines ] unit-test
+[ { "hello" "" } ] [ "hello\r" string-lines ] unit-test
+[ { "hello" "" } ] [ "hello\r\n" string-lines ] unit-test
+[ { "hello" "hi" } ] [ "hello\nhi" string-lines ] unit-test
+[ { "hello" "hi" } ] [ "hello\rhi" string-lines ] unit-test
+[ { "hello" "hi" } ] [ "hello\r\nhi" string-lines ] unit-test

diff --git a/core/test/stream.factor b/core/test/stream.factor
deleted file mode 100644 (file)
index b7162a8..0000000
--- a/core/test/stream.factor
+++ /dev/null
@@ -1,20 +0,0 @@
-IN: temporary
-USE: namespaces
-USE: io
-USE: test
-USE: generic
-USE: kernel
-
-[ "xyzzy" ] [ [ "xyzzy" write ] string-out ] unit-test
-
-[ { "" } ] [ "" string-lines ] unit-test
-[ { "" "" } ] [ "\n" string-lines ] unit-test
-[ { "" "" } ] [ "\r" string-lines ] unit-test
-[ { "" "" } ] [ "\r\n" string-lines ] unit-test
-[ { "hello" } ] [ "hello" string-lines ] unit-test
-[ { "hello" "" } ] [ "hello\n" string-lines ] unit-test
-[ { "hello" "" } ] [ "hello\r" string-lines ] unit-test
-[ { "hello" "" } ] [ "hello\r\n" string-lines ] unit-test
-[ { "hello" "hi" } ] [ "hello\nhi" string-lines ] unit-test
-[ { "hello" "hi" } ] [ "hello\rhi" string-lines ] unit-test
-[ { "hello" "hi" } ] [ "hello\r\nhi" string-lines ] unit-test