tests/testthat/test_condi.R

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

context("Check condi")

grader_args <- list()
learnr_args <- list(last_value = quote(5), envir_prep = new.env())
condi_formula_t <- condition(~ .result == 5, message = "my correct message", correct = TRUE)
condi_formula_f <- condition(~ .result == 1, message = "my error message", correct = FALSE)

test_that("Check condi", {
    expect_condi(condi_formula_t)
    expect_condi(condi_formula_f)

    expect_condi_correct(condi_formula_t, "my correct message")
    expect_condi_error(condi_formula_f, "my error message")
})

context("Check evaluate_condition")

test_that("Condi switch statement formula", {
    expect_equal(
        evaluate_condition(condi_formula_t, grader_args, learnr_args),
        graded(correct = TRUE, message = "my correct message")
    )

    expect_null(
        evaluate_condition(condi_formula_f, grader_args, learnr_args)
    )
})

context("Check condi formula")

test_that("Condi formula", {
    expect_true(
        evaluate_condi_formula(~ .result == 5, user_answer = 5, env = new.env())
    )

    expect_true(
        evaluate_condi_formula(~ .result == 5, user_answer = learnr_args$last_value, env = learnr_args$envir_prep) # nolint
    )

    expect_true(
        evaluate_condi_formula(~ . == 5, user_answer = 5, env = new.env())
    )

    expect_false(
        evaluate_condi_formula(~ .result == 5, user_answer = 4, env = new.env())
    )

    expect_false(
        evaluate_condi_formula(~ . == 5, user_answer = 4, env = new.env())
    )
})