diff --git a/tests/testthat/test-mungepiece.R b/tests/testthat/test-mungepiece.R index a50de93..3d6d924 100644 --- a/tests/testthat/test-mungepiece.R +++ b/tests/testthat/test-mungepiece.R @@ -586,3 +586,11 @@ describe("debugging", { }) }) +describe("some tricky NSE examples", { + test_that("it can use NSE with mungepieces in a simple example", { + mpx <- mungepiece$new(mungebit$new(transform), train_args = alist(sep = Sepal.Length * 2)) + debugonce(mpx$run) + expect_equal(mpx$run(iris)$sep, iris$Sepal.Length * 2) + }) +}) +