Add a reproduction for MDX failing in combination with the -p option

Signed-off-by: Craig Ferguson <[email protected]>

test/blackbox-tests/test-cases/mdx-stanza.t/local-package-unrelated/README.md

@@ -0,0 +1,3 @@
+```ocaml
+This isn't valid OCaml, so running MDX would fail.
+```

test/blackbox-tests/test-cases/mdx-stanza.t/local-package-unrelated/lib/dune

@@ -0,0 +1,3 @@
+(library
+ (name public_lib)
+ (public_name pkg))

test/blackbox-tests/test-cases/mdx-stanza.t/local-package/dune

@@ -0,0 +1,3 @@
+(mdx
+ (files README.md)
+ (packages pkg))

test/blackbox-tests/test-cases/mdx-stanza.t/local-package/dune-project

@@ -0,0 +1,4 @@
+(lang dune 2.4)
+(name pkg)
+
+(using mdx 0.1)

test/blackbox-tests/test-cases/mdx-stanza.t/run.t

@@ -46,8 +46,143 @@ or mli to-be-mdxed file depends upon
 You can make local packages available to mdx by using the `packages` field of
 the stanza
 
-  $ dune runtest --root local-packages
-  Entering directory 'local-packages'
+  $ dune runtest --root local-package
+  Entering directory 'local-package'
+
+Even if the packages is unrelated:
+
+  $ cd local-package-unrelated && dune runtest -p unrelated-package; cd ../
+  Error: exception { exn = ("Map.find_exn: failed to find key", { key = 2; keys
+  = [ 1 ] })
+  ; backtrace =
+      [ { ocaml =
+            "Raised at file \"src/stdune/code_error.ml\", line 9, characters
+  30-62\n\
+             Called from file \"src/dune/mdx.ml\", line 187, characters
+  23-61\n\
+             Called from file \"list.ml\", line 103, characters 22-25\n\
+             Called from file \"src/stdune/list.ml\", line 5, characters
+  19-33\n\
+             Called from file \"src/dune/mdx.ml\", line 185, characters
+  6-196\n\
+             Called from file \"list.ml\", line 110, characters 12-15\n\
+             Called from file \"src/dune/gen_rules.ml\", line 128, characters
+  6-34\n\
+             Called from file \"src/dune/gen_rules.ml\", line 135, characters
+  6-96\n\
+             Called from file \"list.ml\", line 121, characters 24-34\n\
+             Called from file \"src/dune/gen_rules.ml\", line 138, characters
+  4-112\n\
+             Called from file \"src/dune/gen_rules.ml\", line 218, characters
+  4-119\n\
+             Called from file \"src/dune/gen_rules.ml\", line 349, characters
+  24-59\n\
+             Called from file \"src/stdune/exn.ml\", line 12, characters
+  8-11\n\
+             Re-raised at file \"src/stdune/exn.ml\", line 18, characters
+  4-11\n\
+             Called from file \"src/memo/implicit_output.ml\", line 120,
+  characters 4-162\n\
+             Called from file \"src/dune/rules.ml\" (inlined), line 192,
+  characters 20-71\n\
+             Called from file \"src/dune/rules.ml\", line 195, characters
+  20-33\n\
+             Called from file \"src/dune/build_system.ml\", line 900,
+  characters 6-76\n\
+             Called from file \"src/stdune/exn_with_backtrace.ml\", line 9,
+  characters 8-12\n\
+             "
+        ; memo = ("load-dir", In_build_dir "default")
+        }
+      ; { ocaml =
+            "Raised at file \"src/stdune/code_error.ml\", line 9, characters
+  30-62\n\
+             Called from file \"src/dune/mdx.ml\", line 187, characters
+  23-61\n\
+             Called from file \"list.ml\", line 103, characters 22-25\n\
+             Called from file \"src/stdune/list.ml\", line 5, characters
+  19-33\n\
+             Called from file \"src/dune/mdx.ml\", line 185, characters
+  6-196\n\
+             Called from file \"list.ml\", line 110, characters 12-15\n\
+             Called from file \"src/dune/gen_rules.ml\", line 128, characters
+  6-34\n\
+             Called from file \"src/dune/gen_rules.ml\", line 135, characters
+  6-96\n\
+             Called from file \"list.ml\", line 121, characters 24-34\n\
+             Called from file \"src/dune/gen_rules.ml\", line 138, characters
+  4-112\n\
+             Called from file \"src/dune/gen_rules.ml\", line 218, characters
+  4-119\n\
+             Called from file \"src/dune/gen_rules.ml\", line 349, characters
+  24-59\n\
+             Called from file \"src/stdune/exn.ml\", line 12, characters
+  8-11\n\
+             Re-raised at file \"src/stdune/exn.ml\", line 18, characters
+  4-11\n\
+             Called from file \"src/memo/implicit_output.ml\", line 120,
+  characters 4-162\n\
+             Called from file \"src/dune/rules.ml\" (inlined), line 192,
+  characters 20-71\n\
+             Called from file \"src/dune/rules.ml\", line 195, characters
+  20-33\n\
+             Called from file \"src/dune/build_system.ml\", line 900,
+  characters 6-76\n\
+             Called from file \"src/stdune/exn_with_backtrace.ml\", line 9,
+  characters 8-12\n\
+             Re-raised at file \"src/stdune/exn.ml\", line 36, characters
+  27-56\n\
+             Called from file \"src/dune/build_system.ml\", line 1046,
+  characters 12-43\n\
+             Called from file \"src/stdune/exn_with_backtrace.ml\", line 9,
+  characters 8-12\n\
+             "
+        ; memo = ("load-dir", In_build_dir ".aliases/default")
+        }
+      ]
+  ; outer_call_stack = []
+  }
+  Raised at file "src/stdune/code_error.ml", line 9, characters 30-62
+  Called from file "src/dune/mdx.ml", line 187, characters 23-61
+  Called from file "list.ml", line 103, characters 22-25
+  Called from file "src/stdune/list.ml", line 5, characters 19-33
+  Called from file "src/dune/mdx.ml", line 185, characters 6-196
+  Called from file "list.ml", line 110, characters 12-15
+  Called from file "src/dune/gen_rules.ml", line 128, characters 6-34
+  Called from file "src/dune/gen_rules.ml", line 135, characters 6-96
+  Called from file "list.ml", line 121, characters 24-34
+  Called from file "src/dune/gen_rules.ml", line 138, characters 4-112
+  Called from file "src/dune/gen_rules.ml", line 218, characters 4-119
+  Called from file "src/dune/gen_rules.ml", line 349, characters 24-59
+  Called from file "src/stdune/exn.ml", line 12, characters 8-11
+  Re-raised at file "src/stdune/exn.ml", line 18, characters 4-11
+  Called from file "src/memo/implicit_output.ml", line 120, characters 4-162
+  Called from file "src/dune/rules.ml" (inlined), line 192, characters 20-71
+  Called from file "src/dune/rules.ml", line 195, characters 20-33
+  Called from file "src/dune/build_system.ml", line 900, characters 6-76
+  Called from file "src/stdune/exn_with_backtrace.ml", line 9, characters 8-12
+  Re-raised at file "src/stdune/exn.ml", line 36, characters 27-56
+  Called from file "src/dune/build_system.ml", line 1046, characters 12-43
+  Called from file "src/stdune/exn_with_backtrace.ml", line 9, characters 8-12
+  Re-raised at file "src/stdune/exn.ml", line 36, characters 27-56
+  Called from file "src/dune/build_system.ml", line 685, characters 10-23
+  Called from file "src/dune/build_system.ml", line 682, characters 17-34
+  Called from file "src/dune/build.ml", line 293, characters 9-22
+  Called from file "src/dune/build.ml", line 284, characters 58-73
+  Called from file "src/dune/build.ml", line 284, characters 42-57
+  Called from file "src/dune/build.ml", line 284, characters 42-57
+  Called from file "src/dune/build.ml", line 284, characters 58-73
+  Called from file "src/dune/build_system.ml", line 1237, characters 24-39
+  Called from file "src/dune/build_system.ml", line 1850, characters 8-97
+  Called from file "src/fiber/fiber.ml", line 109, characters 10-15
+  Re-raised at file "src/stdune/exn.ml", line 36, characters 27-56
+  Called from file "src/fiber/fiber.ml", line 80, characters 10-17
+
+  I must not crash.  Uncertainty is the mind-killer. Exceptions are the
+  little-death that brings total obliteration.  I will fully express my cases. 
+  Execution will pass over me and through me.  And when it has gone past, I
+  will unwind the stack along its path.  Where the cases are handled there will
+  be nothing.  Only I will remain.
 
 You can set MDX preludes using the preludes field of the stanza