tests/testthat/test-attackontitan.R

In Ryo-N7/tvthemes: TV Show Themes and Color Palettes for 'ggplot2' Graphics

context("test-attackontitan")

expect_eqNe <- function(...) expect_equal(..., check.environment = FALSE)
expect_equal_scales <- function(x, y, ...) {
  x <- as.list(x)
  y <- as.list(y)
  x$call <- y$call <- NULL
  expect_equal(x, y, ...)
}

## Attack on Titan
test_that("attackOnTitan_pal raises warning with large number, x > 8", {
  expect_warning(attackOnTitan_pal()(9))
  expect_warning(attackOnTitan_pal(reverse = TRUE)(9))
  expect_error(attackOnTitan_pal(n = 9))
})

# test_that("scale_colour_attackOnTitan equals scale_color_attackOnTitan", {
#   expect_equal_scales(scale_color_attackOnTitan(), scale_colour_attackOnTitan())
# })

# test_that("scale_colour_attackOnTitan works", {
#   expect_is(scale_color_attackOnTitan(), "ScaleDiscrete")
# })

# test_that("scale_fill_attackOnTitan works", {
#   expect_is(scale_fill_attackOnTitan(), "ScaleDiscrete")
# })

test_that("attackOnTitan outputs correct colors", {
  expect_equal(attackOnTitan_pal()(8),
               c(  "#004c00",  ## cape green  #42694a #004c00 #004000  	#3C4D3D
                   "#173357",  ## survey corp blue
                   "#3E1E13",  ## jacket brown   lightbrown #6f553f
                   "#e50000",  ## titan red   #BF2F1F
                   "#999BA0",  ## blade steel
                   "#c8a780",  ## jacket lighttan
                   "#EB6154",  ## titan skin pink
                   "#000000"   ## black
               ))
})