Remove -- from args after processing many positional arguments

Author: drewolson

src/clip/arg.gleam

@@ -187,7 +187,11 @@ fn run_many_aux(
     _ ->
       case run(arg, args) {
         Ok(#(a, rest)) -> run_many_aux([a, ..acc], arg, rest)
-        Error(_) -> Ok(#(list.reverse(acc), args))
+        Error(_) -> {
+          let clean_args = list.drop_while(args, fn(a) { a == "--" })
+
+          Ok(#(list.reverse(acc), clean_args))
+        }
       }
   }
 }

test/clip/arg_test.gleam

@@ -96,3 +96,16 @@ pub fn float_test() {
 
   assert result == Ok(i)
 }
+
+pub fn run_many_does_not_leave_double_dash_test() {
+  use cli_args <- qcheck.given(qcheck.generic_list(
+    qcheck.non_empty_string(),
+    qcheck.bounded_int(2, 5),
+  ))
+
+  let arg = arg.new("foo")
+
+  let result = arg.run_many(arg, ["--", ..cli_args])
+
+  assert result == Ok(#(cli_args, []))
+}