tests/testthat/test_theme_eq.R

In DYZI/Earthquake_doc: "earthquake: Visualizing NOAA's Significant Earthquakes"

context('theme_eq')
test_that('theme_eq adds some of the expected theme elements', {

  p <- ggplot2::qplot(1:4, 1:4)
  p <- p + theme_eq()

  expect_equal(p$theme$legend.position, 'bottom')
  expect_equal(p$theme$axis.line.x, element_line())

})