diff --git a/test/bin/mdx-test/expect/parts-begin-end/test-case.md b/test/bin/mdx-test/expect/parts-begin-end/test-case.md
index 15524b85..a31bdbc1 100644
--- a/test/bin/mdx-test/expect/parts-begin-end/test-case.md
+++ b/test/bin/mdx-test/expect/parts-begin-end/test-case.md
@@ -33,3 +33,17 @@ val x : int = 2
 
 ```ocaml file=parts-begin-end.ml,part=indented
 ```
+
+```ocaml
+# s ;;
+```
+
+```ocaml exec,file=parts-begin-end.ml,part=toto
+```
+
+```ocaml
+# s ;;
+```
+
+```ocaml skip,file=parts-begin-end.ml,part=toto
+```
diff --git a/test/bin/mdx-test/expect/parts-begin-end/test-case.md.expected b/test/bin/mdx-test/expect/parts-begin-end/test-case.md.expected
index 59280af1..54d05389 100644
--- a/test/bin/mdx-test/expect/parts-begin-end/test-case.md.expected
+++ b/test/bin/mdx-test/expect/parts-begin-end/test-case.md.expected
@@ -67,3 +67,29 @@ val x : int = 2
   let () = fooooooooooooooooooooooooooooooooooooooooooo in
   if not fooooooooo then foooooooooooo
 ```
+
+```ocaml
+# s ;;
+Line 1, characters 1-2:
+Error: Unbound value s
+```
+
+```ocaml exec,file=parts-begin-end.ml,part=toto
+let x = 34
+let f = 42.3
+let s = "toto"
+let fn x u = u x
+
+let () =
+  print_int x;
+  print_float f
+;;
+```
+
+```ocaml
+# s ;;
+- : string = "toto"
+```
+
+```ocaml skip,file=parts-begin-end.ml,part=toto
+```