core-foundation.arrays: forgot to check in unit tests

diff --git a/basis/core-foundation/arrays/arrays-tests.factor b/basis/core-foundation/arrays/arrays-tests.factor
new file mode 100644 (file)
index 0000000..8415f03
--- /dev/null
+++ b/basis/core-foundation/arrays/arrays-tests.factor
@@ -0,0 +1,11 @@
+IN: core-foundation.arrays.tests
+USING: core-foundation core-foundation.arrays
+core-foundation.strings destructors sequences tools.test ;
+
+[ { "1" "2" "3" } ] [
+    [
+        { "1" "2" "3" }
+        [ <CFString> &CFRelease ] map
+        <CFArray> CF>string-array
+    ] with-destructors
+] unit-test