unikernel/duniverse/dune_/test/blackbox-tests/test-cases/merlin/alt-context.t

@@ -0,0 +1,83 @@
+Showcase behavior when passing the `--context` flag to ocaml-merlin
+
+  $ cat >dune-project <<EOF
+  > (lang dune 3.14)
+  > EOF
+
+  $ cat > dune-workspace << EOF
+  > (lang dune 3.14)
+  > 
+  > (context default)
+  > 
+  > (context
+  >  (default
+  >   (name alt)))
+  > EOF
+
+  $ lib1=foo
+  $ lib2=bar
+  $ cat >dune <<EOF
+  > (library
+  >  (name $lib1)
+  >  (modules $lib1)
+  >  (enabled_if (= %{context_name} "default")))
+  > (library
+  >  (name $lib2)
+  >  (modules $lib2)
+  >  (enabled_if (= %{context_name} "alt")))
+  > EOF
+
+  $ touch $lib1.ml $lib2.ml
+
+  $ dune build
+
+  $ FILE1=$PWD/$lib1.ml
+  $ FILE2=$PWD/$lib2.ml
+
+If `generate_merlin_rules` is not used, we can't query anything in alt context
+because by default Merlin rules are only created for the default context
+
+  $ printf '(4:File%d:%s)' ${#FILE2} $FILE2 | dune ocaml-merlin | grep -i "$lib2"
+  ((5:ERROR58:No config found for file bar.ml. Try calling 'dune build'.))
+
+  $ printf '(4:File%d:%s)' ${#FILE2} $FILE2 | dune ocaml-merlin --context alt | grep -i "$lib2"
+  ((5:ERROR58:No config found for file bar.ml. Try calling 'dune build'.))
+
+Let's use `generate_merlin_rules` to test these commands
+
+  $ cat > dune-workspace << EOF
+  > (lang dune 3.16)
+  > 
+  > (context default)
+  > 
+  > (context
+  >  (default
+  >   (name alt)
+  >   (generate_merlin_rules)))
+  > EOF
+
+  $ dune build
+
+Request config for file in alt context without using --context
+
+  $ printf '(4:File%d:%s)' ${#FILE2} $FILE2 | dune ocaml-merlin | grep -i "$lib2" | sed 's/^[^:]*:[^:]*://'
+  No config found for file bar.ml. Try calling 'dune build'.))
+
+Request config for file in alt context using --context
+
+  $ printf '(4:File%d:%s)' ${#FILE2} $FILE2 | dune ocaml-merlin --context alt | dune format-dune-file | grep -i "$lib2" | sed 's/^[^:]*:[^:]*://'
+  $TESTCASE_ROOT/_build/alt/.bar.objs/cctx.ocaml-index)
+  $TESTCASE_ROOT/_build/alt/.bar.objs/byte)
+  bar))
+
+Request config for default context without using --context
+
+  $ printf '(4:File%d:%s)' ${#FILE1} $FILE1 | dune ocaml-merlin | dune format-dune-file | grep -i "$lib1" | sed 's/^[^:]*:[^:]*://'
+  $TESTCASE_ROOT/_build/default/.foo.objs/cctx.ocaml-index)
+  $TESTCASE_ROOT/_build/default/.foo.objs/byte)
+  foo))
+
+Request config for default context using --context
+
+  $ printf '(4:File%d:%s)' ${#FILE1} $FILE1 | dune ocaml-merlin --context alt | dune format-dune-file | grep -i "$lib1" | sed 's/^[^:]*:[^:]*://'
+  No config found for file foo.ml. Try calling 'dune build'.))