TESTS: No need to use stop_if_not()

Author: HenrikBengtsson

inst/testme/test-db_state.R

@@ -1,5 +1,4 @@
 db_state <- future.tests:::db_state
-stop_if_not <- future.tests:::stop_if_not
 options(future.tests.debug = TRUE)
 
 message("*** db_state() ...")
@@ -12,7 +11,7 @@ str(res)
 
 stack <- db_state("list")
 str(stack)
-stop_if_not(length(stack) == 1L)
+stopifnot(length(stack) == 1L)
 
 res <- db_state("push", title = "abc")
 str(res)
@@ -22,27 +21,27 @@ Sys.setenv(BAR = "3.14")
 
 stack <- db_state("list")
 str(stack)
-stop_if_not(length(stack) == 2L)
+stopifnot(length(stack) == 2L)
 
 res <- db_state("push", title = "def")
 str(res)
 
 stack <- db_state("list")
 str(stack)
-stop_if_not(length(stack) == 3L)
+stopifnot(length(stack) == 3L)
 
 res <- db_state("pop")
 str(res)
 
 stack <- db_state("list")
 str(stack)
-stop_if_not(length(stack) == 2L)
+stopifnot(length(stack) == 2L)
 
 res <- db_state("pop")
 str(res)
 
 stack <- db_state("list")
 str(stack)
-stop_if_not(length(stack) == 1L)
+stopifnot(length(stack) == 1L)
 
 message("*** db_state() ... DONE")