tests/testthat/test-gradethis_equal.R

In rstudio-education/grader: Automated Feedback for Student Exercises in 'learnr' Tutorials

test_that("gradethis_equal.list() checks names", {
  expect_false(gradethis_equal(list(pi, letters), list(a = pi, b = letters)))
})

test_that("gradethis_equal.list() is only used when x and y are both bare lists", {
  example_list <- list(1, 2, 3)
  example_vector <- c(1, 2, 3)

  expect_false(gradethis_equal(example_list, example_vector))
  expect_false(gradethis_equal(example_vector, example_list))
  expect_false(gradethis_equal(list(example_list), list(example_vector)))
  expect_false(gradethis_equal(list(example_vector), list(example_list)))

  example_list <- list(a = 1, b = 2)
  example_data_frame <- data.frame(a = 1, b = 2)

  expect_false(gradethis_equal(example_list, example_data_frame))
  expect_false(gradethis_equal(example_data_frame, example_list))
  expect_false(gradethis_equal(list(example_list), list(example_data_frame)))
  expect_false(gradethis_equal(list(example_data_frame), list(example_list)))
})

test_that("gradethis_equal uses methods from ggcheck", {
  skip_if_not_installed("ggcheck", "0.0.5")
  skip_if_not_installed("ggplot2")

  withr::local_package("ggplot2")
  withr::local_package("ggcheck")

  p1 <- ggplot(mpg, aes(displ, hwy, colour = class)) + geom_point()
  p2 <- ggplot(mpg, aes(displ, hwy, colour = class)) + geom_point()

  withr::with_pdf(NULL, print(p1))

  expect_true(gradethis_equal(p1, p2))
})

test_that("gradethis_equal.list uses methods from ggcheck", {
  skip_if_not_installed("ggcheck", "0.0.5")
  skip_if_not_installed("ggplot2")

  withr::local_package("ggplot2")
  withr::local_package("ggcheck")

  l1 <- list(
    ggplot(mpg, aes(displ, hwy, colour = class)) + geom_point(),
    ggplot(mpg, aes(displ, hwy, colour = manufacturer)) + geom_point()
  )
  l2 <- list(
    ggplot(mpg, aes(displ, hwy, colour = class)) + geom_point(),
    ggplot(mpg, aes(displ, hwy, colour = manufacturer)) + geom_point()
  )

  capture.output(withr::with_pdf(NULL, print(l1)))

  expect_true(gradethis_equal(l1, l2))
})