Add fail_if_not_equal() and gradethis_equal() (#346)

Co-authored-by: rossellhayes <[email protected]>

Author: rossellhayes

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: gradethis
 Title: Automated Feedback for Student Exercises in 'learnr' Tutorials
-Version: 0.2.12.9003
+Version: 0.2.12.9004
 Authors@R: c(
     person("Garrick", "Aden-Buie", , "[email protected]", role = "aut",
            comment = c(ORCID = "0000-0002-7111-0077")),

NAMESPACE

@@ -12,6 +12,7 @@ S3method(give_random_phrase,"function")
 S3method(give_random_phrase,character)
 S3method(give_random_phrase,default)
 S3method(give_random_phrase,gradethis_graded)
+S3method(gradethis_equal,default)
 S3method(print,gradethis_solutions)
 export("%>%")
 export(.engine)
@@ -39,6 +40,7 @@ export(fail_if)
 export(fail_if_code_feedback)
 export(fail_if_equal)
 export(fail_if_error)
+export(fail_if_not_equal)
 export(give_code_feedback)
 export(give_encouragement)
 export(give_praise)
@@ -52,6 +54,7 @@ export(grade_this)
 export(grade_this_code)
 export(graded)
 export(gradethis_demo)
+export(gradethis_equal)
 export(gradethis_error_checker)
 export(gradethis_exercise_checker)
 export(gradethis_setup)

NEWS.md

@@ -1,3 +1,8 @@
+# gradethis 0.2.12.9004
+
+* Add `fail_if_not_equal()` (#346).
+* `pass_if_equal()`, `fail_if_equal()`, and `fail_if_not_equal()` now call `gradethis_equal()`, an S3 generic which calls `waldo::compare()` by default. This allows other methods for `gradethis_equal()` to handle special cases (#346).
+
 # gradethis 0.2.12.9003
 
 * `call_standardise_formals()` now attempts to standardize arguments passed through `...` in mapping functions like `lapply()` or `purrr::map()` (#344).