tests/testthat/test_two_measures_relationship.R

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

p <- two_measures_relationship(ggplot2::mpg, displ, hwy, 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 'displ'",{
  expect_match(p$labels$x, "displ")
})

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