aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/dir-iterator/testscript24
-rw-r--r--tests/mventry/testscript120
-rw-r--r--tests/path-entry/testscript34
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'
}
}
}