Move io.files.links tests to io.files.links.unix so that they don't get run on Windows

diff --git a/basis/io/files/links/links-tests.factor b/basis/io/files/links/links-tests.factor
deleted file mode 100644 (file)
index bc03e42..0000000
--- a/basis/io/files/links/links-tests.factor
+++ /dev/null
@@ -1,32 +0,0 @@
-USING: io.directories io.files.links tools.test sequences
-io.files.unique tools.files fry math kernel math.parser
-io.pathnames namespaces ;
-IN: io.files.links.tests
-
-: make-test-links ( n path -- )
-    [ '[ [ 1+ ] keep [ number>string _ prepend ] bi@ make-link ] each ]
-    [ [ number>string ] dip prepend touch-file ] 2bi ; inline
-
-[ t ] [
-    [
-        5 "lol" make-test-links
-        "lol1" follow-links
-        current-directory get "lol5" append-path =
-    ] with-unique-directory
-] unit-test
-
-[
-    [
-        100 "laf" make-test-links "laf1" follow-links
-    ] with-unique-directory
-] [ too-many-symlinks? ] must-fail-with
-
-[ t ] [
-    110 symlink-depth [
-        [
-            100 "laf" make-test-links
-            "laf1" follow-links
-            current-directory get "laf100" append-path =
-        ] with-unique-directory
-    ] with-variable
-] unit-test

diff --git a/basis/io/files/links/unix/unix-tests.factor b/basis/io/files/links/unix/unix-tests.factor
new file mode 100644 (file)
index 0000000..b1d2c5b
--- /dev/null
+++ b/basis/io/files/links/unix/unix-tests.factor
@@ -0,0 +1,32 @@
+USING: io.directories io.files.links tools.test sequences
+io.files.unique tools.files fry math kernel math.parser
+io.pathnames namespaces ;
+IN: io.files.links.unix.tests
+
+: make-test-links ( n path -- )
+    [ '[ [ 1+ ] keep [ number>string _ prepend ] bi@ make-link ] each ]
+    [ [ number>string ] dip prepend touch-file ] 2bi ; inline
+
+[ t ] [
+    [
+        5 "lol" make-test-links
+        "lol1" follow-links
+        current-directory get "lol5" append-path =
+    ] with-unique-directory
+] unit-test
+
+[
+    [
+        100 "laf" make-test-links "laf1" follow-links
+    ] with-unique-directory
+] [ too-many-symlinks? ] must-fail-with
+
+[ t ] [
+    110 symlink-depth [
+        [
+            100 "laf" make-test-links
+            "laf1" follow-links
+            current-directory get "laf100" append-path =
+        ] with-unique-directory
+    ] with-variable
+] unit-test