test: Fix Rscript test

trevorld · Nov 25, 2021 · 3f65457 · 3f65457
1 parent 6b3e70c
commit 3f65457
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-argparse.R b/tests/testthat/test-argparse.R
@@ -324,6 +324,6 @@ test_that("Paths that quit()", {
 
     help <- system2(cmd, c("scripts/test_help.R", "--help"),
                     stdout = TRUE, stderr = TRUE)
-    expect_equal("usage: scripts/test_help.R [-h]", help[2])
-    expect_equal("  -h, --help  show this help message and exit", help[5])
+    expect_equal("usage: scripts/test_help.R [-h]", help[1])
+    expect_equal("  -h, --help  show this help message and exit", help[4])
 })