basis/cocoa/plists/plists-tests.factor

   1 IN: cocoa.plists.tests
   2 USING: tools.test cocoa.plists colors kernel hashtables
   3 core-foundation.utilities core-foundation destructors
   4 assocs cocoa.enumeration ;
   5
   6 [
   7     [ V{ } ] [ H{ } >cf &CFRelease [ ] NSFastEnumeration-map ] unit-test
   8     [ V{ "A" } ] [ { "A" } >cf &CFRelease plist> ] unit-test
   9     [ H{ { "A" "B" } } ] [ "B" "A" associate >cf &CFRelease plist> ] unit-test
  10 ] with-destructors