tests/testthat/test-shapes.R

In jrnold/ggthemes: Extra Themes, Scales and Geoms for 'ggplot2'

test_that("circlefill_pal works", {
  expect_snapshot({
    pal <- circlefill_shape_pal()
    expect_type(pal, "closure")
    expect_equal(attr(pal, "max_n"), 5L)
    n <- 4L
    values <- pal(n)
    expect_type(values, "integer")
    expect_equal(length(values), n)
  })
})

test_that("scale_shape_circlefill works", {
  expect_snapshot({
    expect_s3_class(scale_shape_circlefill(), "ScaleDiscrete")
  })
})

test_that("tremmel_shape_pal works", {
  pal <- tremmel_shape_pal()
  expect_type(pal, "closure")
  expect_equal(attr(pal, "max_n"), 3L)
  n <- 3L
  values <- pal(n)
  expect_type(values, "integer")
  expect_equal(length(values), n)
})

test_that("tremmel_shape_pal works for all values", {
  for (i in 1:3L) {
    expect_equal(length(tremmel_shape_pal()(i)), i)
    expect_equal(length(tremmel_shape_pal(alt = TRUE)(i)), i)
    expect_equal(length(tremmel_shape_pal(overlap = TRUE)(i)), i)
  }
})

test_that("scale_shape_tremmel works", {
  expect_s3_class(scale_shape_tremmel(), "ScaleDiscrete")
})

test_that("cleveland_shape_pal works", {
  pal <- cleveland_shape_pal()
  expect_type(pal, "closure")
  expect_equal(attr(pal, "max_n"), 4)
  n <- 3
  vals <- pal(n)
  expect_equal(length(vals), n)
})



test_that("cleveland_shape_pal works with overlap = FALSE", {
  pal <- cleveland_shape_pal(overlap = FALSE)
  expect_type(pal, "closure")
  expect_equal(attr(pal, "max_n"), 5)
  n <- 3
  vals <- pal(n)
  expect_equal(length(vals), n)
  expect_type(vals, "integer")
  expect_true(all(vals < 0))
})

test_that("scale_shape_cleveland works", {
  expect_s3_class(scale_shape_cleveland(), "ScaleDiscrete")
})