tools.test ;
IN: io.streams.string.tests
-[ "" ] [ "" [ contents ] with-string-reader ] unit-test
+{ "" } [ "" [ contents ] with-string-reader ] unit-test
-[ "line 1" CHAR: l ]
+{ "line 1" CHAR: l }
[
"line 1\nline 2\nline 3" [ readln read1 ] with-string-reader
]
"\rfoo\r\nbar\rbaz\n" [ lines ] with-string-reader
] unit-test
-[ f ] [ "" [ readln ] with-string-reader ] unit-test
+{ f } [ "" [ readln ] with-string-reader ] unit-test
-[ "xyzzy" ] [ [ "xyzzy" write ] with-string-writer ] unit-test
+{ "xyzzy" } [ [ "xyzzy" write ] with-string-writer ] unit-test
-[ "a" ] [ "abc" [ 1 read ] with-string-reader ] unit-test
-[ "ab" ] [ "abc" [ 2 read ] with-string-reader ] unit-test
-[ "abc" ] [ "abc" [ 3 read ] with-string-reader ] unit-test
-[ "abc" ] [ "abc" [ 4 read ] with-string-reader ] unit-test
-[ "abc" f ] [ "abc" [ 3 read read1 ] with-string-reader ] unit-test
+{ "a" } [ "abc" [ 1 read ] with-string-reader ] unit-test
+{ "ab" } [ "abc" [ 2 read ] with-string-reader ] unit-test
+{ "abc" } [ "abc" [ 3 read ] with-string-reader ] unit-test
+{ "abc" } [ "abc" [ 4 read ] with-string-reader ] unit-test
+{ "abc" f } [ "abc" [ 3 read read1 ] with-string-reader ] unit-test
-[
+{
{ "It seems " CHAR: J }
{ "obs has lost h" CHAR: i }
{ "s grasp on reality again.\n" f }
-] [
+} [
"It seems Jobs has lost his grasp on reality again.\n" [
"J" read-until 2array
"i" read-until 2array
{ "" CHAR: \r } [ "\r\n" [ "\r" read-until ] with-string-reader ] unit-test
{ f f } [ "" [ "\r" read-until ] with-string-reader ] unit-test
-[ "hello" "hi" ] [
+{ "hello" "hi" } [
"hello\nhi" [ readln 2 read ] with-string-reader
] unit-test
-[ "hello" "hi" ] [
+{ "hello" "hi" } [
"hello\r\nhi" [ readln 2 read ] with-string-reader
] unit-test
-[ "hello" "hi" ] [
+{ "hello" "hi" } [
"hello\rhi" [ readln 2 read ] with-string-reader
] unit-test
! Issue #70 github
-[ f ] [ "" [ 0 read ] with-string-reader ] unit-test
-[ f ] [ "" [ 1 read ] with-string-reader ] unit-test
-[ f ] [ "" [ readln ] with-string-reader ] unit-test
-[ "\"\"" ] [ "\"\"" [ readln ] with-string-reader ] unit-test
+{ f } [ "" [ 0 read ] with-string-reader ] unit-test
+{ f } [ "" [ 1 read ] with-string-reader ] unit-test
+{ f } [ "" [ readln ] with-string-reader ] unit-test
+{ "\"\"" } [ "\"\"" [ readln ] with-string-reader ] unit-test