core/alien/strings/strings-tests.factor

   1 USING: alien.strings tools.test kernel libc
   2 io.encodings.8-bit io.encodings.utf16 io.encodings.ascii alien ;
   3 IN: alien.strings.tests
   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