basis/cocoa/plists/plists-tests.factor

   1 USING: tools.test cocoa.plists colors kernel hashtables
   2 core-foundation.utilities core-foundation destructors
   3 assocs cocoa.enumeration ;
   4 IN: cocoa.plists.tests
   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     [ H{ { "A" "B" } } ] [ "B" "A" associate >cf &CFRelease plist> ] unit-test
  11
  12     [ t ] [
  13         {
  14             H{ { "DeviceUsagePage" 1 } { "DeviceUsage" 4 } }
  15             H{ { "DeviceUsagePage" 1 } { "DeviceUsage" 5 } }
  16             H{ { "DeviceUsagePage" 1 } { "DeviceUsage" 6 } }
  17         } [ >cf &CFRelease ] [ >cf &CFRelease ] bi
  18         [ plist> ] bi@ =
  19     ] unit-test
  20
  21     [ t ] [
  22         { "DeviceUsagePage" 1 }
  23         [ >cf &CFRelease ] [ >cf &CFRelease ] bi
  24         [ plist> ] bi@ =
  25     ] unit-test
  26
  27     [ V{ "DeviceUsagePage" "Yes" } ] [
  28         { "DeviceUsagePage" "Yes" }
  29         >cf &CFRelease plist>
  30     ] unit-test
  31
  32     [ V{ 2.0 1.0 } ] [
  33         { 2.0 1.0 }
  34         >cf &CFRelease plist>
  35     ] unit-test
  36
  37     [ 3.5 ] [
  38         3.5 >cf &CFRelease plist>
  39     ] unit-test
  40 ] with-destructors