Use all.equal() instead of identical() to compare future plans

Author: HenrikBengtsson

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: future.tests
 Title: Test Suite for 'Future API' Backends
-Version: 0.8.0-9003
+Version: 0.8.0-9004
 Authors@R: c(
   person("Henrik", "Bengtsson", role = c("aut", "cre", "cph"), email = "[email protected]"),
   person(family = "The R Consortium", comment = "Project was awared an Infrastructure Steering Committee (ISC) grant in 2017", role = "fnd"))

R/state.R

@@ -208,10 +208,9 @@ db_state <- local({
         ## WORKAROUND: https://github.com/HenrikBengtsson/future/issues/320
         state_plan <- state$plan
         plan(state_plan)
-
-        ## Assert that everything was properly undone
+        
         ## FIXME: 'future' should guarantee this - just drop? /HB 2025-04-02
-        stop_if_not(equal_strategy_stacks(plan("list"), state_plan))
+        stop_if_not(all.equal(plan("list"), state_plan))
       }
 
 #      message("*** ", state$title, " ... DONE")