Add a unit test which fails on Windows

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"

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

core/test/stream.factor

@@ -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