basis/core-foundation/dictionaries/dictionaries-tests.factor

   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
   6
   7 [ ] [ { } <CFDictionary> CFRelease ] unit-test
   8
   9 [ "raps in the back of cars and doesn't afraid of anything" ] [
  10     [
  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
  14         "key" get
  15         CFDictionaryGetValue
  16         dup [ CF>string ] when
  17     ] with-destructors
  18 ] unit-test