Test that a tundraContainer cannot be trained twice.

syberia · Aug 2, 2015 · 091a6c4 · 091a6c4
1 parent 9343371
commit 091a6c4
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/tests/testthat/test-train.R b/tests/testthat/test-train.R
@@ -1,5 +1,13 @@
 context("tundraContainer$train")
 
+describe("Invalid inputs", {
+  test_that("it cannot be trained twice", {
+    container <- tundraContainer$new("foo")
+    container$train(iris)
+    expect_error(container$train(iris), "has already been trained")
+  })
+})
+
 test_that("it can train a simple example", {
   container <- tundraContainer$new("foo", function(data) {
     output$data <- data