remove duplicated tests (closes #40)

Author: simonpcouch

tests/testthat/_snaps/validation-rules.md

@@ -16,25 +16,6 @@
       Error in `adjust_probability_calibration()`:
       ! adjustments that change the hard class predictions must come after adjustments that update the class probability estimates.
 
----
-
-    Code
-      tailor() %>% adjust_probability_threshold(threshold = 0.4) %>%
-        adjust_probability_calibration()
-    Condition
-      Error in `adjust_probability_calibration()`:
-      ! adjustments that change the hard class predictions must come after adjustments that update the class probability estimates.
-
----
-
-    Code
-      tailor() %>% adjust_predictions_custom(veg = "potato") %>%
-        adjust_probability_threshold(threshold = 0.4) %>%
-        adjust_probability_calibration()
-    Condition
-      Error in `adjust_probability_calibration()`:
-      ! adjustments that change the hard class predictions must come after adjustments that update the class probability estimates.
-
 ---
 
     Code
@@ -56,26 +37,6 @@
       Error in `adjust_probability_threshold()`:
       ! adjustments cannot be duplicated: "probability_threshold"
 
----
-
-    Code
-      tailor() %>% adjust_predictions_custom(veg = "potato") %>%
-        adjust_probability_threshold(threshold = 0.4) %>%
-        adjust_probability_threshold(threshold = 0.5) %>%
-        adjust_probability_calibration()
-    Condition
-      Error in `adjust_probability_threshold()`:
-      ! adjustments cannot be duplicated: "probability_threshold"
-
----
-
-    Code
-      tailor() %>% adjust_equivocal_zone(value = 0.2) %>%
-        adjust_probability_threshold(threshold = 0.4)
-    Condition
-      Error in `adjust_probability_threshold()`:
-      ! Equivocal zone addition should come after adjustments that update the class probability estimates or hard class predictions.
-
 ---
 
     Code

tests/testthat/test-validation-rules.R

@@ -50,21 +50,6 @@ test_that("validation of adjustments (classification)", {
       adjust_probability_calibration()
   )
 
-  expect_snapshot(
-    error = TRUE,
-    tailor() %>%
-      adjust_probability_threshold(threshold = .4) %>%
-      adjust_probability_calibration()
-  )
-
-  expect_snapshot(
-    error = TRUE,
-    tailor() %>%
-      adjust_predictions_custom(veg = "potato") %>%
-      adjust_probability_threshold(threshold = .4) %>%
-      adjust_probability_calibration()
-  )
-
   expect_snapshot(
     error = TRUE,
     tailor() %>%
@@ -82,22 +67,6 @@ test_that("validation of adjustments (classification)", {
       adjust_probability_calibration()
   )
 
-  expect_snapshot(
-    error = TRUE,
-    tailor() %>%
-      adjust_predictions_custom(veg = "potato") %>%
-      adjust_probability_threshold(threshold = .4) %>%
-      adjust_probability_threshold(threshold = .5) %>%
-      adjust_probability_calibration()
-  )
-
-  expect_snapshot(
-    error = TRUE,
-    tailor() %>%
-      adjust_equivocal_zone(value = .2) %>%
-      adjust_probability_threshold(threshold = .4)
-  )
-
   expect_snapshot(
     error = TRUE,
     tailor() %>%