unikernel/duniverse/dune_/test/blackbox-tests/test-cases/cram/hg-access.t

@@ -0,0 +1,31 @@
+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)