Get coverage of progress handler

Author: gergness

dev-misc/fixture-creation/vegetables-dataset.R

@@ -540,6 +540,26 @@ file_copy(cube_path, here("mocks", "cubes", "numa-x-mr.json"), overwrite = TRUE)
 
 dir_delete(temp_dir)
 
+
+### Generate failed async crunch automation failure
+httpcache::clearCache()
+dir_create(temp_dir)
+
+start_capturing(temp_dir)
+failed <- try(runCrunchAutomation(ds, "NOT A COMMAND", async = TRUE), silent = TRUE)
+stop_capturing()
+
+progress_path <- path(temp_dir, "app.crunch.io/api/progress.json")
+
+file_copy(
+    progress_path,
+    here("mocks", "app.crunch.io", "api", "progress-failed-async-script.json"),
+    overwrite = TRUE
+)
+
+dir_delete(temp_dir)
+
+
 # Cleanup ----
 rm(deck) # Hopefully gets rid of weird message after sourcing script
 with_consent(delete(ds))

mocks/app.crunch.io/api/progress-failed-async-script.json

@@ -0,0 +1,22 @@
+{
+    "element": "shoji:view",
+    "self": "https://app.crunch.io/api/progress/",
+    "views": {
+        "result": "https://app.crunch.io/api/progress/result/"
+    },
+    "value": {
+        "progress": -1,
+        "message": {
+            "resolutions": [
+                {
+                    "column": 1,
+                    "message": "Invalid command: NOT",
+                    "command": 1,
+                    "line": 1
+                }
+            ],
+            "type": "script:syntax",
+            "description": "Errors processing the script"
+        }
+    }
+}

tests/testthat/test-automation.R

@@ -200,6 +200,26 @@ with_mock_crunch({
         )
     })
 
+    test_that("Can interpret error from async script failures", {
+        # Override progress with a pre-generated JSON at the url
+        with_mock(
+            `crunch::crPOST` = function(..., progress.handler = NULL) {
+                capture.output(crunch::pollProgress(
+                    "https://app.crunch.io/api/progress-failed-async-script.json",
+                    wait = 0.01,
+                    error_handler = progress.handler
+                ))
+            }, {
+                expect_error(ds <- runCrunchAutomation(ds, "NOT A COMMAND"), "Crunch Automation Error")
+            }
+        )
+
+        expect_message(
+            failures <- showScriptErrors(),
+            "\\(line 1\\) Invalid command: NOT",
+        )
+    })
+
     test_that("error truncation works", {
         expected <- " - (line 1) Error 1\n - (line 2) Error 2\n - ... (Showing first 2 of 3 errors)"
         attr(expected, "truncated") <- TRUE