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

   1 IN: core-foundation.arrays.tests
   2 USING: core-foundation core-foundation.arrays
   3 core-foundation.strings destructors sequences tools.test ;
   4
   5 { { "1" "2" "3" } } [
   6     [
   7         { "1" "2" "3" }
   8         [ <CFString> &CFRelease ] map
   9         <CFArray> CF>string-array
  10     ] with-destructors
  11 ] unit-test