Don't use magrittr in this test

Fixes #203
tidyverse · Sep 12, 2018 · 6424afb · 6424afb
1 parent eba1304
commit 6424afb
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/tests/testthat/test-undo.R b/tests/testthat/test-undo.R
@@ -145,14 +145,10 @@ test_that("reprex_invert() can name outfile based on input filepath", {
 test_that("reprex_invert(venue = 'gh') doesn't strip leading ws", {
   skip_on_cran()
   temporarily()
-  input <- c(
-    "library(magrittr)",
-    "mtcars[, 1:2] %>%",
-    "    head(n = 1)"
-  )
+  input <- c("head(", "    letters)")
   reprexed <- reprex(
     input = input, venue = "gh", advertise = FALSE, show = FALSE
   )
   inverted <- reprex_invert(reprexed, venue = "gh")
-  expect_match(inverted, input[3], all = FALSE, fixed = TRUE)
+  expect_match(inverted, input[2], all = FALSE, fixed = TRUE)
 })