tests/testthat/test-6-theme_timeline.R

In Valentin-Konoshenko/Earthquakes4Coursera: Visualization of the earthquakes from the NOAA database

context("theme_timeline function")

pct <- ggplot(mtcars) +
  geom_point(aes(x = wt, y = mpg)) +
  theme_timeline()

test_that("Class is theme", {
  expect_is(pct, "ggplot")
  expect_is(pct$theme, "theme")
})

test_that("panel.border is empty", {
  expect_is(pct$theme["panel.border"], "list")
  expect_is(pct$theme[["panel.border"]], "element_blank")
})