add another test case for os:argv/1

2024-01-04 18:12:38 +01:00
parent 8bd0317e9c
commit e66e7c5034
4 changed files with 4 additions and 0 deletions
--- 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([]).
--- 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.
--- 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([]).
--- 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.