update unit tests

Author: topepo

tests/testthat/test-theme.r

@@ -328,6 +328,7 @@ test_that("all elements in complete themes have inherit.blank=TRUE", {
   expect_true(inherit_blanks(theme_linedraw()))
   expect_true(inherit_blanks(theme_minimal()))
   expect_true(inherit_blanks(theme_void()))
+  expect_true(inherit_blanks(theme_transparent()))
 })
 
 test_that("elements can be merged", {
@@ -477,6 +478,9 @@ test_that("provided themes explicitly define all elements", {
 
   t <- theme_test()
   expect_true(all(names(t) %in% elements))
+
+  t <- theme_transparent()
+  expect_true(all(names(t) %in% elements))
 })
 
 test_that("Theme elements are checked during build", {
@@ -538,6 +542,7 @@ test_that("themes don't change without acknowledgement", {
   expect_doppelganger("theme_light", plot + theme_light())
   expect_doppelganger("theme_void", plot + theme_void())
   expect_doppelganger("theme_linedraw", plot + theme_linedraw())
+  expect_doppelganger("theme_transparent", plot + theme_transparent())
 })
 
 test_that("themes look decent at larger base sizes", {
@@ -554,6 +559,7 @@ test_that("themes look decent at larger base sizes", {
   expect_doppelganger("theme_light_large", plot + theme_light(base_size = 33))
   expect_doppelganger("theme_void_large", plot + theme_void(base_size = 33))
   expect_doppelganger("theme_linedraw_large", plot + theme_linedraw(base_size = 33))
+  expect_doppelganger("theme_transparent", plot + theme_transparent(base_size = 33))
 })
 
 test_that("axes can be styled independently", {