tests/testthat/_snaps/graded.md

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

pass_if() and fail_if() give errors for invalid cond

Code
  grade <- expect_grade_this(pass_if(~TRUE), user_code = "1", solution_code = "2",
  is_correct = logical(0))
Warning <simpleWarning>
  The `cond` argument to `pass_if()` does not accept functions or formulas when used inside `grade_this()`.

Code
  grade <- expect_grade_this(fail_if(~TRUE), user_code = "1", solution_code = "2",
  is_correct = logical(0))
Warning <simpleWarning>
  The `cond` argument to `fail_if()` does not accept functions or formulas when used inside `grade_this()`.

Code
  grade <- expect_grade_this(pass_if(all.equal(.result, .solution)), user_code = "1",
  solution_code = "2", is_correct = logical(0))
Warning <simpleWarning>
  The `cond` argument to `pass_if()` must be coercible to logical, not an object of class <character>.

Code
  grade <- expect_grade_this(fail_if(!all.equal(.result, .solution)), user_code = "1",
  solution_code = "2", is_correct = logical(0))
Warning <simpleWarning>
  The `cond` argument to `fail_if()` produced an error:
    Error in !all.equal(.result, .solution) : invalid argument type

rstudio-education/grader documentation built on July 6, 2023, 8:48 a.m.