diff --git a/tests/mytest.R b/tests/mytest.R
new file mode 100644
index 000000000..a6319dcc4
--- /dev/null
+++ b/tests/mytest.R
@@ -0,0 +1,15 @@
+library("testthat")
+library("animint2")
+library("RSelenium");library("XML")
+setwd("testthat")
+source("helper-functions.R")
+source("helper-HTML.R")
+source("helper-plot-data.r")
+
+tests_init()
+tests_run(filter="renderer3-worldbank")
+tests_exit()
+
+tests_init("firefox")
+tests_run(filter="renderer3-worldbank")
+tests_exit()
diff --git a/tests/testthat/test-renderer3-worldbank.R b/tests/testthat/test-renderer3-worldbank.R
new file mode 100644
index 000000000..e904d5e8e
--- /dev/null
+++ b/tests/testthat/test-renderer3-worldbank.R
@@ -0,0 +1,19 @@
+acontext("TestWorldBank")
+
+data(WorldBank, package="animint2")
+WorldBank$Region <- sub(" (all income levels)", "", WorldBank$region, fixed=TRUE)
+WorldBank1975 <- subset(WorldBank, year==1975)
+
+scatter <- ggplot()+
+  geom_point(
+    mapping=aes(x=life.expectancy, y=fertility.rate, color=Region),
+    data=WorldBank1975)
+
+animint(scatter)
+scatter_plot <- list(plot = scatter)
+
+test_that("worldbank scatter generated without any warnings or errors", {
+  expect_no_warning({
+    info <- animint2HTML(scatter_plot)
+  })
+}) 
\ No newline at end of file