From 13e736943ac1832ef75f4ace3d6bbb120bf60e45 Mon Sep 17 00:00:00 2001 From: robertzk Date: Wed, 17 May 2017 22:38:14 -0500 Subject: [PATCH 1/2] Add failing NSE example. --- tests/testthat/test-mungepiece.R | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/tests/testthat/test-mungepiece.R b/tests/testthat/test-mungepiece.R index a50de93..637209f 100644 --- a/tests/testthat/test-mungepiece.R +++ b/tests/testthat/test-mungepiece.R @@ -586,3 +586,10 @@ 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)) + expect_equal(mpx$run(iris)$sep, iris$Sepal.Length * 2) + }) +}) + From 98548aded46fd099fc68840c931130e575018a3b Mon Sep 17 00:00:00 2001 From: robertzk Date: Wed, 17 May 2017 22:54:39 -0500 Subject: [PATCH 2/2] Add failing test case. --- tests/testthat/test-mungepiece.R | 1 + 1 file changed, 1 insertion(+) diff --git a/tests/testthat/test-mungepiece.R b/tests/testthat/test-mungepiece.R index 637209f..3d6d924 100644 --- a/tests/testthat/test-mungepiece.R +++ b/tests/testthat/test-mungepiece.R @@ -589,6 +589,7 @@ 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) }) })