core/alien/strings/strings-tests.factor

   1 USING: alien alien.data alien.strings io.encodings.ascii
   2 io.encodings.latin1 io.encodings.string io.encodings.utf16
   3 io.encodings.utf8 kernel libc tools.test ;
   4
   5 { "\u0000ff" }
   6 [ "\u0000ff" latin1 string>alien latin1 alien>string ]
   7 unit-test
   8
   9 { "hello world" }
  10 [ "hello world" latin1 string>alien latin1 alien>string ]
  11 unit-test
  12
  13 { "hello\u00abcdworld" }
  14 [ "hello\u00abcdworld" utf16le string>alien utf16le alien>string ]
  15 unit-test
  16
  17 { t } [ f expired? ] unit-test
  18
  19 { "hello world" } [
  20     "hello world" ascii malloc-string
  21     dup ascii alien>string swap free
  22 ] unit-test
  23
  24 { "hello world" } [
  25     "hello world" utf16n malloc-string
  26     dup utf16n alien>string swap free
  27 ] unit-test
  28
  29 { f } [ f utf8 alien>string ] unit-test
  30
  31 { "hello" } [ "hello" utf16 encode utf16 decode ] unit-test
  32
  33 { "hello" } [ "hello" utf16 string>alien utf16 alien>string ] unit-test