Fix directory symlink tests failing on Windows in Developer Mode

3 files changed, 86 insertions, 92 deletions

diff --git a/tests/dir-iterator/testscript b/tests/dir-iterator/testscript
index 720622f..ec7338d 100644
--- a/tests/dir-iterator/testscript
+++ b/tests/dir-iterator/testscript
@@ -24,11 +24,13 @@ $* a >"dir     b"
 if ($test.target == $build.host)
 {
   +if ($cxx.target.class != 'windows')
-    lns = ln -s wd/t wd/l &wd/l
+    lnf = ln -s wd/t wd/l &wd/l
+    lnd = $lnf
   else
     echo 'yes' >=t
     if cmd /C 'mklink l t' >- 2>- &?l && cat l >'yes'
-      lns = cmd /C 'mklink wd\l t' &wd/l >-
+      lnf = cmd /C 'mklink wd\l t' &wd/l >-
+      lnd = cmd /C 'mklink /D wd\l t' &wd/l >-
     end
 
     jnc = cmd /C 'mklink /J wd\l wd\t' &wd/l >-
@@ -36,7 +38,7 @@ if ($test.target == $build.host)
 
   : symlink
   :
-  if! $empty($lns)
+  if! $empty($lnf)
   {
     : file
     :
@@ -44,7 +46,7 @@ if ($test.target == $build.host)
       +mkdir wd
       +touch --no-cleanup wd/t
       +touch wd/f
-      +$lns
+      +$lnf
       +$* wd >>~%EOO%
         %(reg     f|reg     t|sym reg l)%{3}
         EOO
@@ -60,16 +62,10 @@ if ($test.target == $build.host)
       +mkdir wd
       +mkdir --no-cleanup wd/t
       +mkdir wd/d
-      +$lns
-
-      # Note that this test may fail on Windows (see symlinks known issues in
-      # libbutl/filesystem.mxx).
-      #
-      +if ($cxx.target.class != 'windows')
-         $* wd >>~%EOO%
-          %(dir     d|dir     t|sym dir l)%{3}
-          EOO
-      end
+      +$lnd
+      +$* wd >>~%EOO%
+        %(dir     d|dir     t|sym dir l)%{3}
+        EOO
 
       +rmdir wd/t
 
diff --git a/tests/mventry/testscript b/tests/mventry/testscript
index c6cbf45..54a3acc 100644
--- a/tests/mventry/testscript
+++ b/tests/mventry/testscript
@@ -98,19 +98,21 @@
 if ($test.target == $build.host)
 {
   +if ($cxx.target.class != 'windows')
-    lns = ln -s a b
+    lnf = ln -s t l &l
+    lnd = $lnf
   else
-    echo 'yes' >=a
-    if cmd /C 'mklink b a' >- 2>- &?b && cat b >'yes'
-      lns = cmd /C 'mklink b a' >-
+    echo 'yes' >=t
+    if cmd /C 'mklink l t' >- 2>- &?l && cat l >'yes'
+      lnf = cmd /C 'mklink l t' &l >-
+      lnd = cmd /C 'mklink /D l t' &l >-
     end
 
-    jnc = cmd /C 'mklink /J b a' >-
+    jnc = cmd /C 'mklink /J l t' &l >-
   end
 
   : symlink
   :
-  if! $empty($lns)
+  if! $empty($lnf)
   {
     : file
     :
@@ -120,34 +122,34 @@ if ($test.target == $build.host)
       : Make sure that if source is a symlink it refers the same target after
       : rename.
       :
-      echo 'foo' >=a;
-      $lns &!b;
-      $* b c &c;
-      test -f a;
-      test -f b == 1;
-      echo 'bar' >=a;
-      cat c >'bar'
+      echo 'foo' >=t;
+      $lnf;
+      $* l ll &!l ≪
+      test -f t;
+      test -f l == 1;
+      echo 'bar' >=t;
+      cat ll >'bar'
 
       : to
       :
       : Make sure that if destination is a symlink it is get overwritten and
       : it's target stays intact.
       :
-      echo 'foo' >=a;
-      $lns &b;
-      echo 'bar' >=c &!c;
-      $* c b;
-      cat a >'foo';
-      test -f c == 1;
-      echo 'baz' >=a;
-      cat b >'bar'
+      echo 'foo' >=t;
+      $lnf;
+      echo 'bar' >=f;
+      $* f l &!f;
+      cat t >'foo';
+      test -f f == 1;
+      echo 'baz' >=t;
+      cat l >'bar'
 
       : over-existing-dir
       :
-      echo 'foo' >=a;
-      $lns &b;
-      mkdir c;
-      $* b c 2>- == 1
+      echo 'foo' >=t;
+      $lnf;
+      mkdir d;
+      $* t d 2>- == 1
     }
 
     : dir
@@ -158,32 +160,33 @@ if ($test.target == $build.host)
       : Make sure that if source is a symlink it refers the same target after
       : rename.
       :
-      mkdir -p a;
-      $lns &!b;
-      $* b c &c;
-      touch a/b;
-      test -f c/b;
-      test -d b == 1
+      mkdir -p t;
+      $lnd;
+      $* l ll &!l ≪
+      touch t/f;
+      test -f ll/f;
+      test -f l == 1;
+      test -d l == 1
 
       : to
       :
       : Make sure that if destination is a symlink it is get overwritten and
       : it's target stays intact.
       :
-      mkdir -p a;
-      $lns;
-      echo 'foo' >=c &!c;
-      $* c b &b;
-      cat b >'foo';
-      test -d a;
-      test -f c == 1
+      mkdir -p t;
+      $lnd;
+      echo 'foo' >=f;
+      $* f l &!f;
+      cat l >'foo';
+      test -d t;
+      test -f f == 1
 
       : over-existing-dir
       :
-      mkdir a;
-      $lns &b;
-      mkdir c;
-      $* b c 2>- == 1
+      mkdir t;
+      $lnd;
+      mkdir d;
+      $* l d 2>- == 1
     }
   }
 
@@ -196,32 +199,33 @@ if ($test.target == $build.host)
     : Make sure that if source is a junction it refers the same target after
     : rename.
     :
-    mkdir -p a;
-    $jnc &!b;
-    $* b c &c;
-    touch a/b;
-    test -f c/b;
-    test -d b == 1
+    mkdir -p t;
+    $jnc;
+    $* l ll &!l ≪
+    touch t/f;
+    test -f ll/f;
+    test -f l == 1;
+    test -d l == 1
 
     : to
     :
     : Make sure that if destination is a junction it is get overwritten and
     : it's target stays intact.
     :
-    mkdir -p a;
+    mkdir -p t;
     $jnc;
-    echo 'foo' >=c &!c;
-    $* c b &b;
-    cat b >'foo';
-    test -d a;
-    test -f c == 1
+    echo 'foo' >=f;
+    $* f l &!f;
+    cat l >'foo';
+    test -d t;
+    test -f f == 1
 
     : over-existing-dir
     :
-    mkdir a;
-    $jnc &b;
-    mkdir c;
-    $* b c 2>- == 1
+    mkdir t;
+    $jnc;
+    mkdir d;
+    $* l d 2>- == 1
   }
 }
 
diff --git a/tests/path-entry/testscript b/tests/path-entry/testscript
index 76316bf..0424dff 100644
--- a/tests/path-entry/testscript
+++ b/tests/path-entry/testscript
@@ -54,11 +54,13 @@
   if ($test.target == $build.host)
   {
     +if ($cxx.target.class != 'windows')
-      lns = ln -s t l &l
+      lnf = ln -s t l &l
+      lnd = $lnf
     else
       echo 'yes' >=t
       if cmd /C 'mklink l t' >- 2>- &?l && cat l >'yes'
-        lns = cmd /C 'mklink l t' &l >-
+        lnf = cmd /C 'mklink l t' &l >-
+        lnd = cmd /C 'mklink /D l t' &l >-
       end
 
       jnc = cmd /C 'mklink /J l t' &l >-
@@ -66,7 +68,7 @@
 
     : symlink
     :
-    if! $empty($lns)
+    if! $empty($lnf)
     {
       : file
       :
@@ -78,7 +80,7 @@
         :
         {
           cat <:'abc' >=t;
-          $lns;
+          $lnf;
           $* -p 400 -m '2020-03-05 00:00:00' -a '2020-03-05 00:00:01' t | set ti;
           $* -l l >"$ti"
         }
@@ -89,7 +91,7 @@
         :
         {
           cat <:'abc' >=t;
-          $lns;
+          $lnf;
           $* -p 400 -m '2020-03-05 00:00:00' -a '2020-03-05 00:00:01' l | set ti;
           sed -n -e 's/permissions: (.+)/\1/p' <"$ti" >~/'4.{2}'/;
           sed -n -e 's/mtime: (.+)/\1/p' <"$ti" >'2020-03-05 00:00:00';
@@ -102,7 +104,7 @@
         :
         {
           cat <:'abc' >=t;
-          $lns;
+          $lnf;
           $* t | set ti;
           sleep 2;
           $* -t l | set li;
@@ -114,10 +116,6 @@
 
       : dir
       :
-      : Note that the following tests may fail on Windows (see symlinks known
-      : issues in libbutl/filesystem.mxx).
-      :
-      if ($cxx.target.class != 'windows')
       {
         : get-info
         :
@@ -126,10 +124,9 @@
         :
         {
           mkdir t;
-          $lns;
+          $lnd;
           $* -p 400 -m '2020-03-05 00:00:00' -a '2020-03-05 00:00:01' t | set ti;
-          $* -l l >"$ti";
-          $* -p 600 t >- # @@ TMP; until build2 is staged.
+          $* -l l >"$ti"
         }
 
         : set-info
@@ -138,12 +135,11 @@
         :
         {
           mkdir t;
-          $lns;
+          $lnd;
           $* -p 400 -m '2020-03-05 00:00:00' -a '2020-03-05 00:00:01' l | set ti;
           sed -n -e 's/permissions: (.+)/\1/p' <"$ti" >~/'4.{2}'/;
           sed -n -e 's/mtime: (.+)/\1/p' <"$ti" >'2020-03-05 00:00:00';
-          sed -n -e 's/atime: (.+)/\1/p' <"$ti" >'2020-03-05 00:00:01';
-          $* -p 600 t >- # @@ TMP; until build2 is staged.
+          sed -n -e 's/atime: (.+)/\1/p' <"$ti" >'2020-03-05 00:00:01'
         }
       }
     }
@@ -161,8 +157,7 @@
         mkdir t;
         $jnc;
         $* -p 400 -m '2020-03-05 00:00:00' -a '2020-03-05 00:00:01' t | set ti;
-        $* -l l >"$ti";
-        $* -p 600 t >- # @@ TMP; until build2 is staged.
+        $* -l l >"$ti"
       }
 
       : set-info
@@ -175,8 +170,7 @@
         $* -p 400 -m '2020-03-05 00:00:00' -a '2020-03-05 00:00:01' l | set ti;
         sed -n -e 's/permissions: (.+)/\1/p' <"$ti" >~/'4.{2}'/;
         sed -n -e 's/mtime: (.+)/\1/p' <"$ti" >'2020-03-05 00:00:00';
-        sed -n -e 's/atime: (.+)/\1/p' <"$ti" >'2020-03-05 00:00:01';
-        $* -p 600 t >- # @@ TMP; until build2 is staged.
+        sed -n -e 's/atime: (.+)/\1/p' <"$ti" >'2020-03-05 00:00:01'
       }
     }
   }