diff --git a/tests/testthat/test-index.R b/tests/testthat/test-index.R
new file mode 100644
index 00000000..4a5ccd47
--- /dev/null
+++ b/tests/testthat/test-index.R
@@ -0,0 +1,52 @@
+context("customindex")
+
+test_that("Omitting required template keys produces warnings", {
+ string <-
+ "
+
+
+ {%meta_tags%}
+ Testing Again
+ {%favicon%}
+ {%css_tags%}
+
+
+ {%app_entry%}
+
+
+ "
+
+ 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
+ )
+})