1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: tools.test core-foundation core-foundation.dictionaries
4 arrays destructors core-foundation.strings kernel namespaces ;
5 IN: core-foundation.dictionaries.tests
7 { } [ { } <CFDictionary> CFRelease ] unit-test
9 { "raps in the back of cars and doesn't afraid of anything" } [
11 "cpst" <CFString> &CFRelease dup "key" set
12 "raps in the back of cars and doesn't afraid of anything" <CFString> &CFRelease
13 2array 1array <CFDictionary> &CFRelease
16 dup [ CF>string ] when