32 lines
953 B
Perl
32 lines
953 B
Perl
|
Check that actions don't have access to the outer hg repository.
|
||
|
|
|
||
|
|
$ mkdir hg
|
||
|
|
$ cd hg
|
||
|
|
|
||
|
|
We can't call "hg init" because "hg init" reads the fake .hg created
|
||
|
|
by Dune and fails. Thankfully, creating an empty .hg directory is
|
||
|
|
enough for a few hg commands such as "hg root" to succeed:
|
||
|
|
|
||
|
|
$ mkdir .hg
|
||
|
|
$ hg root
|
||
|
|
$TESTCASE_ROOT/hg
|
||
|
|
|
||
|
|
$ echo '(lang dune 3.0)' > dune-project
|
||
|
|
$ cat >test.t <<"EOF"
|
||
|
|
> $ hg root 2>&1 | sed 's/!$//'
|
||
|
|
> EOF
|
||
|
|
|
||
|
|
$ dune runtest --auto-promote
|
||
|
|
File "test.t", line 1, characters 0-0:
|
||
|
|
Error: Files _build/default/test.t and _build/default/test.t.corrected
|
||
|
|
differ.
|
||
|
|
Promoting _build/default/test.t.corrected to test.t.
|
||
|
|
[1]
|
||
|
|
|
||
|
|
The inner call to hg shouldn't be able to access the outer hg repo:
|
||
|
|
|
||
|
|
$ cat test.t
|
||
|
|
$ hg root 2>&1 | sed 's/!$//'
|
||
|
|
abort: repository requires features unknown to this Mercurial: Escaping the Dune sandbox
|
||
|
|
(see https://mercurial-scm.org/wiki/MissingRequirement for more information)
|