basis/io/streams/string/string-tests.factor

   1 USING: io.streams.string io kernel arrays namespaces make
   2 tools.test ;
   3 IN: io.streams.string.tests
   4
   5 { "" } [ "" [ contents ] with-string-reader ] unit-test
   6
   7 { "line 1" CHAR: l }
   8 [
   9     "line 1\nline 2\nline 3" [ readln read1 ] with-string-reader
  10 ]
  11 unit-test
  12
  13 { { "line 1" "line 2" "line 3" } } [
  14     "line 1\nline 2\nline 3" [ lines ] with-string-reader
  15 ] unit-test
  16
  17 { { "" "foo" "bar" "baz" } } [
  18     "\rfoo\r\nbar\rbaz\n" [ lines ] with-string-reader
  19 ] unit-test
  20
  21 { f } [ "" [ readln ] with-string-reader ] unit-test
  22
  23 { "xyzzy" } [ [ "xyzzy" write ] with-string-writer ] unit-test
  24
  25 { "a" } [ "abc" [ 1 read ] with-string-reader ] unit-test
  26 { "ab" } [ "abc" [ 2 read ] with-string-reader ] unit-test
  27 { "abc" } [ "abc" [ 3 read ] with-string-reader ] unit-test
  28 { "abc" } [ "abc" [ 4 read ] with-string-reader ] unit-test
  29 { "abc" f } [ "abc" [ 3 read read1 ] with-string-reader ] unit-test
  30
  31 {
  32     { "It seems " CHAR: J }
  33     { "obs has lost h" CHAR: i }
  34     { "s grasp on reality again.\n" f }
  35 } [
  36     "It seems Jobs has lost his grasp on reality again.\n" [
  37         "J" read-until 2array
  38         "i" read-until 2array
  39         "X" read-until 2array
  40     ] with-string-reader
  41 ] unit-test
  42
  43 { "" CHAR: \r } [ "\r\n" [ "\r" read-until ] with-string-reader ] unit-test
  44 { f f } [ "" [ "\r" read-until ] with-string-reader ] unit-test
  45
  46 { "hello" "hi" } [
  47     "hello\nhi" [ readln 2 read ] with-string-reader
  48 ] unit-test
  49
  50 { "hello" "hi" } [
  51     "hello\r\nhi" [ readln 2 read ] with-string-reader
  52 ] unit-test
  53
  54 { "hello" "hi" } [
  55     "hello\rhi" [ readln 2 read ] with-string-reader
  56 ] unit-test
  57
  58 ! Issue #70 github
  59 { f } [ "" [ 0 read ] with-string-reader ] unit-test
  60 { f } [ "" [ 1 read ] with-string-reader ] unit-test
  61 { f } [ "" [ readln ] with-string-reader ] unit-test
  62 { "\"\"" } [ "\"\"" [ readln ] with-string-reader ] unit-test