Test case to see whether non-deterministic mode is applied correctly

Author: Leonidas-from-XIV

test/bin/mdx-dune-gen/misc/non-deterministic/dune

@@ -0,0 +1,52 @@
+(rule
+ (target dune_gen.ml)
+ (action
+  (with-stdout-to
+   %{target}
+   (run ocaml-mdx dune-gen))))
+
+(executable
+ (name dune_gen)
+ (modules dune_gen)
+ (modes byte)
+ (libraries mdx.test))
+
+(rule
+ (target dune-mdx-nondeterministic.deterministic)
+ (deps
+  dune_gen.exe
+  (:input dune-mdx-nondeterministic))
+ (action
+  (with-stdout-to
+   %{target}
+   (run ./dune_gen.exe %{input}))))
+
+(rule
+ (target dune-mdx-nondeterministic.nondeterministic)
+ (deps
+  dune_gen.exe
+  (:input dune-mdx-nondeterministic))
+ (action
+  (setenv
+   MDX_RUN_NON_DETERMINISTIC
+   1
+   (with-stdout-to
+    %{target}
+    (run ./dune_gen.exe %{input})))))
+
+(rule
+ (alias runtest)
+ (action
+  (diff %{dep:dune-mdx-nondeterministic.expected}
+    %{dep:dune-mdx-nondeterministic.deterministic})))
+
+;; make sure the non-deterministic is different from the deterministic
+
+(rule
+ (alias runtest)
+ (action
+  (with-accepted-exit-codes
+   1
+   (ignore-stdout
+    (run diff %{dep:dune-mdx-nondeterministic.expected}
+      %{dep:dune-mdx-nondeterministic.nondeterministic})))))

test/bin/mdx-dune-gen/misc/non-deterministic/dune-mdx-nondeterministic

@@ -0,0 +1,18 @@
+This test checks whether the non-deterministic mode works with the `dune` `mdx`
+stanza.
+
+Deterministic stanzas should get run and corrected, as for 1 plus one is not 3:
+
+```ocaml
+# 1 + 1;;
+- : int = 42
+```
+
+Non-deterministic ones should not be updated, since whatever `Random` outputs
+should be random:
+
+<!-- $MDX non-deterministic=command -->
+```ocaml
+# Random.int 1000;;
+- : int = 42
+```

test/bin/mdx-dune-gen/misc/non-deterministic/dune-mdx-nondeterministic.expected

@@ -0,0 +1,18 @@
+This test checks whether the non-deterministic mode works with the `dune` `mdx`
+stanza.
+
+Deterministic stanzas should get run and corrected, as for 1 plus one is not 3:
+
+```ocaml
+# 1 + 1;;
+- : int = 2
+```
+
+Non-deterministic ones should not be updated, since whatever `Random` outputs
+should be random:
+
+<!-- $MDX non-deterministic=command -->
+```ocaml
+# Random.int 1000;;
+- : int = 42
+```