add simple shiny module test

TitouanRobert · Oct 25, 2017 · 14e7691 · 14e7691
1 parent 8ad7e36
commit 14e7691
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/tests/testthat/test-module.R b/tests/testthat/test-module.R
@@ -0,0 +1,20 @@
+context("Shiny Module")
+
+describe("Shiny Module", {
+  it("returns a well defined shiny module", {
+    c <- manipulateWidget(
+      paste(a, b),
+      a = mwSelect(c("a", "b", "c")),
+      b = mwText("test"),
+      .compare = "a", .runApp = FALSE
+    )
+
+    # server
+    f_server <- c$getModuleServer()
+    expect_is(f_server, "function")
+    expect_equal(names(formals(f_server)), c("input", "output", "session", "..."))
+
+    f_ui <- c$getModuleUI()
+    expect_is(f_ui, "function")
+  })
+})