use radix literals

[factor.git] / basis / core-foundation / strings / strings-tests.factor

diff --git a/basis/core-foundation/strings/strings-tests.factor b/basis/core-foundation/strings/strings-tests.factor
index 39d5ee6ac0e1e387cc1f4cd13cc33448cdf52013..1de46235949f85bc32ce4b726c8b2ffa21fcc77c 100644 (file)
--- a/basis/core-foundation/strings/strings-tests.factor
+++ b/basis/core-foundation/strings/strings-tests.factor
@@ -1,9 +1,15 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: core-foundation.strings core-foundation tools.test kernel ;
+USING: core-foundation.strings core-foundation tools.test kernel
+strings ;
 IN: core-foundation
 
 [ ] [ "Hello" <CFString> CFRelease ] unit-test
 [ "Hello" ] [ "Hello" <CFString> [ CF>string ] [ CFRelease ] bi ] unit-test
 [ "Hello\u003456" ] [ "Hello\u003456" <CFString> [ CF>string ] [ CFRelease ] bi ] unit-test
 [ "Hello\u013456" ] [ "Hello\u013456" <CFString> [ CF>string ] [ CFRelease ] bi ] unit-test
+[ ] [ "\0" <CFString> CFRelease ] unit-test
+[ "\0" ] [ "\0" <CFString> [ CF>string ] [ CFRelease ] bi ] unit-test
+
+! This shouldn't fail
+[ ] [ { 0x123456 } >string <CFString> CFRelease ] unit-test
\ No newline at end of file