feat: pw_show_report

Author: ColinFay

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: pw
 Title: Test your 'golem' Apps with 'Playwright'
-Version: 0.0.0.9006
+Version: 0.0.0.9007
 Authors@R:
     person("Colin", "Fay", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-7343-1846"))

NAMESPACE

@@ -3,6 +3,7 @@
 export(npx_is_available)
 export(pw_codegen)
 export(pw_init)
+export(pw_show_report)
 export(pw_test)
 export(stop_if_npx_not_available)
 importFrom(cli,cat_line)

NEWS.md

@@ -1,5 +1,7 @@
 # pw (development version)
 
+* `pw_show_report()` can be called to open the test report
+
 * `pw_codegen()` can be called to launch the code generator
 
 * `pw_test()` stops if the playwright skeleton is missing

R/pw_show_report.R

@@ -0,0 +1,38 @@
+#' Show the Playwright report
+#'
+#' @param where The path to the package
+#' @param ... Additional arguments to pass to `npx playwright show-report`
+#' @importFrom withr with_dir
+#' @export
+pw_show_report <- function(
+  where = golem::get_golem_wd(),
+  ...
+){
+  stop_if_npx_not_available()
+  stop_if_playwright_skeleton_not_present(
+    where = where
+  )
+  with_dir(
+    where,
+    {
+      with_dir(
+        "tests",
+        {
+          with_dir(
+            "playwright",
+            {
+              system2(
+                "npx",
+                c(
+                  "playwright",
+                  "show-report",
+                  ...
+                )
+              )
+            }
+          )
+        }
+      )
+    }
+  )
+}

man/pw_codegen.Rd

@@ -7,7 +7,7 @@ test_that("multiplication works", {
     unlink(temp_golem, recursive = TRUE)
   })
   options("usethis.quiet" = TRUE)
-  res <- golem::create_golem(
+  ftr_report <- golem::create_golem(
     path = temp_golem,
     package_name = "pwtest",
     open = FALSE,
@@ -72,4 +72,28 @@ test_that("multiplication works", {
       )
     }
   )
+  withr::with_dir(
+    temp_golem,
+    {
+      future::plan(future::multisession)
+      pw_show_report_ <- force(pw_show_report)
+      ftr_report <- future::future({
+        pw_show_report_(where = ".", "--port=8787")
+      })
+      on.exit({
+        tools::pskill(
+          ftr_report$workers[[ftr_report$node]]$session_info$process$pid
+        )
+      })
+      Sys.sleep(1)
+      expect_true(
+        attr(
+          curlGetHeaders(
+            "http://localhost:8787"
+          ),
+          "status"
+        ) == 200
+      )
+    }
+  )
 })