add another test case for os:argv/1

diff --git a/tests/scryer/cli/issues/os_argv-no-final--.stdin b/tests/scryer/cli/issues/os_argv-no-final--.stdin
index e6f56a7239937cfabe4602579a847ef6cd9f874f..59ba556c89f2ccb4c162e719c1c12063bd74ad33 100644 (file)
--- a/tests/scryer/cli/issues/os_argv-no-final--.stdin
+++ b/tests/scryer/cli/issues/os_argv-no-final--.stdin
@@ -1,5 +1,6 @@
 os:argv(V).
 os:argv(["test1"|_]).
 os:argv(["--"|_]).
+os:argv([V, "--"|_]).
 os:argv(["test2"|_]).
 os:argv([]).

diff --git a/tests/scryer/cli/issues/os_argv-no-final--.stdout b/tests/scryer/cli/issues/os_argv-no-final--.stdout
index 7e97413400b3a942ea71e0c7db8876d59b08a27d..9558ca7f46ff8d41d0ffb9a94e1840ac076406c3 100644 (file)
--- a/tests/scryer/cli/issues/os_argv-no-final--.stdout
+++ b/tests/scryer/cli/issues/os_argv-no-final--.stdout
@@ -1,5 +1,6 @@
    V = ["test1","--","test2"].
    true.
    false.
+   V = "test1".
    false.
    false.

diff --git a/tests/scryer/cli/issues/os_argv.stdin b/tests/scryer/cli/issues/os_argv.stdin
index e6f56a7239937cfabe4602579a847ef6cd9f874f..59ba556c89f2ccb4c162e719c1c12063bd74ad33 100644 (file)
--- a/tests/scryer/cli/issues/os_argv.stdin
+++ b/tests/scryer/cli/issues/os_argv.stdin
@@ -1,5 +1,6 @@
 os:argv(V).
 os:argv(["test1"|_]).
 os:argv(["--"|_]).
+os:argv([V, "--"|_]).
 os:argv(["test2"|_]).
 os:argv([]).

diff --git a/tests/scryer/cli/issues/os_argv.stdout b/tests/scryer/cli/issues/os_argv.stdout
index c07dff8ec7fad1e1825cc5183ba00c3f6aa9e5a7..2916310ce895c0d5f2b2134fa3ed1da94b66438f 100644 (file)
--- a/tests/scryer/cli/issues/os_argv.stdout
+++ b/tests/scryer/cli/issues/os_argv.stdout
@@ -1,5 +1,6 @@
    V = ["test1","--","test2","--"].
    true.
    false.
+   V = "test1".
    false.
    false.