Assert that there are expected 'actions' values when settings 'state' to legacy 'canceled' or 'interrupted'

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future
-Version: 1.68.0-9101
+Version: 1.68.0-9102
 Title: Unified Parallel and Distributed Processing in R for Everyone
 Depends:
     R (>= 3.2.0)

R/backend_api-Future-class.R

@@ -1018,6 +1018,20 @@ getExpression.Future <- local({
         }
       }
     }
+
+    ## FIXME: Automatically remap 'interrupted' and 'canceled' to 'finished'
+    ## Could also set 'actions' to 'cancel' and 'interrupt' accordingly,
+    ## if not already done
+
+    ## Validate that 'actions' field is consistent with legacy 'state' values
+    if (is.element(value, c("canceled", "interrupted"))) {
+      actions <- future[["actions"]]
+      if (value == "interrupted") {
+        stop_if_not("interrupt" %in% actions)
+      } else if (value == "canceled") {
+        stop_if_not("cancel" %in% actions)
+      }
+    }
   }
 
   NextMethod()