Create symlinked dir at runtime

It appears they cannot be added to a tar file, and thus are inhibiting
release

Author: lizmat

META6.json

@@ -41,5 +41,5 @@
   ],
   "test-depends": [
   ],
-  "version": "0.2.1"
+  "version": "0.2.2"
 }

lib/File/Find.rakumod

@@ -58,6 +58,6 @@ my sub find(
 
 #- hack ------------------------------------------------------------------------
 # To allow version fetching in test files
-unit module File::Find:ver<0.2.1>:auth<zef:raku-community-modules>;
+unit module File::Find:ver<0.2.2>:auth<zef:raku-community-modules>;
 
 # vim: expandtab shiftwidth=4

t/01-file-find.rakutest

@@ -70,14 +70,28 @@ dies-ok { find(:dir<t/dir1>, :type<foo>) }, "dies on incorrect type";
 my $skip-first = True;
 my $throw = True;
 
-#follow-symlinks
-$res = find(:dir<t/dir2>);
-@test = $res.map({ .Str }).sort;
-equals @test, <t/dir2/file.foo t/dir2/symdir t/dir2/symdir/empty_file t/dir2/symdir/file.bar>, 'follow-syminks is True';
+# follow-symlinks
+my $symlink-dir := $*PROGRAM.sibling("dir2/symdir");
+symlink($*PROGRAM.sibling("dir1/another_dir"), $symlink-dir);
+if $symlink-dir.e {
+    $res = find(:dir<t/dir2>);
+    @test = $res.map({ .Str }).sort;
+    equals @test,
+      <t/dir2/file.foo t/dir2/symdir t/dir2/symdir/empty_file t/dir2/symdir/file.bar>,
+      'follow-syminks is True';
+
+    $res = find(:dir<t/dir2>, :!follow-symlinks);
+    @test = $res.map({ .Str }).sort;
+    equals @test,
+      <t/dir2/file.foo t/dir2/symdir>,
+      'follow-symlinks is False';
+
+    unlink $symlink-dir;  # cleanup for the next test run, just in case
+}
 
-$res = find(:dir<t/dir2>, follow-symlinks => False);
-@test = $res.map({ .Str }).sort;
-equals @test, <t/dir2/file.foo t/dir2/symdir>, 'follow-symlinks is False';
+else {
+    pass "Cannot check symlinks on dirs in this OS" for ^2;
+}
 
 # Wrap dir to throw when we want it to.
 my $w = &dir.wrap(sub ($_) {