io.encodings.utf16: add a utf16n word for native utf16 type.

[factor.git] / core / alien / strings / strings-tests.factor

diff --git a/core/alien/strings/strings-tests.factor b/core/alien/strings/strings-tests.factor
index c1b5a9e159f25c67ab3536cce186d6345e69a24e..d9739294b9c060f33321f6501d798277e85d8059 100644 (file)
--- a/core/alien/strings/strings-tests.factor
+++ b/core/alien/strings/strings-tests.factor
@@ -1,34 +1,33 @@
-USING: alien.strings alien.c-types alien.data tools.test kernel libc
-io.encodings.8-bit io.encodings.utf8 io.encodings.utf16
-io.encodings.utf16n io.encodings.ascii alien io.encodings.string ;
-IN: alien.strings.tests
+USING: alien.strings alien.c-types alien.data tools.test
+kernel libc io.encodings.utf8 io.encodings.utf16
+io.encodings.ascii alien io.encodings.string io.encodings.latin1 ;
 
-[ "\u0000ff" ]
+{ "\u0000ff" }
 [ "\u0000ff" latin1 string>alien latin1 alien>string ]
 unit-test
 
-[ "hello world" ]
+{ "hello world" }
 [ "hello world" latin1 string>alien latin1 alien>string ]
 unit-test
 
-[ "hello\u00abcdworld" ]
+{ "hello\u00abcdworld" }
 [ "hello\u00abcdworld" utf16le string>alien utf16le alien>string ]
 unit-test
 
-[ t ] [ f expired? ] unit-test
+{ t } [ f expired? ] unit-test
 
-[ "hello world" ] [
+{ "hello world" } [
     "hello world" ascii malloc-string
     dup ascii alien>string swap free
 ] unit-test
 
-[ "hello world" ] [
+{ "hello world" } [
     "hello world" utf16n malloc-string
     dup utf16n alien>string swap free
 ] unit-test
 
-[ f ] [ f utf8 alien>string ] unit-test
+{ f } [ f utf8 alien>string ] unit-test
 
-[ "hello" ] [ "hello" utf16 encode utf16 decode ] unit-test
+{ "hello" } [ "hello" utf16 encode utf16 decode ] unit-test
 
-[ "hello" ] [ "hello" utf16 string>alien utf16 alien>string ] unit-test
+{ "hello" } [ "hello" utf16 string>alien utf16 alien>string ] unit-test