1 ! Copyright (C) 2008 Slava Pestov.
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: core-foundation.strings core-foundation tools.test kernel
7 { } [ "Hello" <CFString> CFRelease ] unit-test
8 { "Hello" } [ "Hello" <CFString> [ CF>string ] [ CFRelease ] bi ] unit-test
9 { "Hello\u003456" } [ "Hello\u003456" <CFString> [ CF>string ] [ CFRelease ] bi ] unit-test
10 { "Hello\u013456" } [ "Hello\u013456" <CFString> [ CF>string ] [ CFRelease ] bi ] unit-test
11 { } [ "\0" <CFString> CFRelease ] unit-test
12 { "\0" } [ "\0" <CFString> [ CF>string ] [ CFRelease ] bi ] unit-test
15 { } [ { 0x123456 } >string <CFString> CFRelease ] unit-test