diff --git a/test/blackbox-tests/test-cases/quoting/quote-from-context/args b/test/blackbox-tests/test-cases/quoting/quote-from-context/args
new file mode 100644
index 00000000..98a86f9e
--- /dev/null
+++ b/test/blackbox-tests/test-cases/quoting/quote-from-context/args
@@ -0,0 +1,3 @@
+foo
+bar
+baz
\ No newline at end of file
diff --git a/test/blackbox-tests/test-cases/quoting/quote-from-context/count_args.ml b/test/blackbox-tests/test-cases/quoting/quote-from-context/count_args.ml
new file mode 100644
index 00000000..5fe897f2
--- /dev/null
+++ b/test/blackbox-tests/test-cases/quoting/quote-from-context/count_args.ml
@@ -0,0 +1,3 @@
+
+let () =
+  Printf.printf "Number of args: %d\n" (Array.length Sys.argv - 1)
diff --git a/test/blackbox-tests/test-cases/quoting/quote-from-context/dune b/test/blackbox-tests/test-cases/quoting/quote-from-context/dune
new file mode 100644
index 00000000..319474cb
--- /dev/null
+++ b/test/blackbox-tests/test-cases/quoting/quote-from-context/dune
@@ -0,0 +1,6 @@
+(executable
+ ((name count_args)))
+
+(alias
+ ((name runtest)
+  (action (run ./count_args.exe ${read-lines:args}))))
\ No newline at end of file
diff --git a/test/blackbox-tests/test-cases/quoting/run.t b/test/blackbox-tests/test-cases/quoting/run.t
index d1f6f44a..97f216ee 100644
--- a/test/blackbox-tests/test-cases/quoting/run.t
+++ b/test/blackbox-tests/test-cases/quoting/run.t
@@ -17,3 +17,8 @@ The targets should only be interpreted as a single path when quoted
   - s
   - t
   [1]
+
+  $ dune runtest --root quote-from-context
+  Entering directory 'quote-from-context'
+    count_args alias runtest
+  Number of args: 3