Add unit tests for index customization (#176)

rpkyle · web-flow · commit 2c46d9f06ba8 · 2020-02-12T20:02:14.000-05:00
diff --git a/tests/testthat/test-index.R b/tests/testthat/test-index.R
@@ -0,0 +1,52 @@
+context("customindex")
+
+test_that("Omitting required template keys produces warnings", {
+  string <-
+    "<!DOCTYPE html>
+  <html>
+  <head>
+  {%meta_tags%}
+  <title>Testing Again</title>
+  {%favicon%}
+  {%css_tags%}
+  </head>
+  <body>
+  {%app_entry%}
+  <footer>
+  {%config%}
+  {%scripts%}
+  </footer>
+  </body>
+  </html>"
+  
+  app <- Dash$new()
+  
+  expect_error(
+    app$index_string(gsub("\\{\\%config\\%\\}|\\{\\%scripts\\%\\}|\\{\\%app_entry\\%\\}", "", string)),
+    "Did you forget to include app_entry, config, scripts in your index string?"
+  )
+  
+  expect_error(
+    app$index_string(gsub("\\{\\%scripts\\%\\}", "", string)),
+    "Did you forget to include scripts in your index string?"
+  )
+  
+  expect_error(
+    app$index_string(gsub("\\{\\%app_entry\\%\\}", "", string)),
+    "Did you forget to include app_entry in your index string?"
+  )
+  
+  expect_error(
+    app$index_string(gsub("\\{\\%config\\%\\}", "", string)),
+    "Did you forget to include config in your index string?"
+  )
+})
+
+test_that("Customizing title using `name` produces a warning", {
+
+  expect_warning(
+    Dash$new(name="Testing"),
+    "The supplied application title, 'Testing', should be set using the title() method, or passed via index_string() or interpolate_index(); it has been ignored, and 'dash' will be used instead.",
+    fixed=TRUE
+  )
+})
