tests/testthat/test_category_tally.R

In kviswana/ezEDA: Task Oriented Interface for Exploratory Data Analysis

p <- category_tally(ggplot2::mpg, class)
test_that("Plot layers match expectations",{
  expect_is(p$layers[[1]], "ggproto")
})

test_that("Plot returns ggplot object",{
  expect_is(p, "ggplot")
})

test_that("Plot uses correct data",{
  expect_that(length(names(p$data)), equals(11))
})

test_that("x axis is labeled 'class'",{
  expect_match(p$labels$x, "class")
})

test_that("y axis is labeled 'count'",{
  expect_match(p$labels$y, "count")
})