tests/testthat/test_check_result_df.R

In cgamboasanabria/gradethis: Tools for "grading" student exercises in learnr tutorials

context("Check Result Condi")

test_that("Comparing dataframes, testing for null env", {
  source(testthat::test_path("billboard.R"))

  # check that the results are the same
  testthat::expect_equal(billboard_user, billboard_solution)

  expect_correct(
    grade_result(
        pass_if(~ identical(.result, billboard_solution), "This is a correct message"),
        learnr_args = list(last_value = billboard_user, envir_prep = new.env())
    )
  )
})