Correctly handle null value

And mock function to test no quarto installed

Author: cderv

DESCRIPTION

@@ -27,7 +27,7 @@ Suggests:
     curl,
     knitr,
     rsconnect (>= 0.8.26),
-    testthat (>= 3.1.0),
+    testthat (>= 3.1.7),
     withr,
     xfun
 VignetteBuilder: 

R/quarto.R

@@ -124,14 +124,16 @@ check_quarto_version <- function(ver, what, url) {
 #' @export
 quarto_binary_sitrep <- function(verbose = TRUE, debug = FALSE) {
 
-  quarto_found <- normalizePath(quarto_path(), mustWork = FALSE)
+  quarto_found <- quarto_path()
   if (is.null(quarto_found)) {
     if (verbose) {
       cli::cli_alert_danger(quarto_not_found_msg)
     }
     return(FALSE)
   }
 
+  quarto_found <- normalizePath(quarto_found, mustWork = FALSE)
+
   same_config <- TRUE
   if (debug) verbose <- TRUE
 

tests/testthat/_snaps/quarto.md

@@ -77,3 +77,12 @@
     Output
       [1] TRUE
 
+---
+
+    Code
+      quarto_binary_sitrep(debug = TRUE)
+    Message
+      x Quarto command-line tools path not found! Please make sure you have installed and added Quarto to your PATH or set the QUARTO_PATH environment variable.
+    Output
+      [1] FALSE
+

tests/testthat/test-quarto.R

@@ -65,4 +65,12 @@ test_that("quarto CLI sitrep", {
       transform = transform_quarto_cli_in_output(full_path = TRUE, normalize_path = TRUE)
     )
   )
+
+  # Mock no quarto found
+  with_mocked_bindings(
+    quarto_path = function(...) NULL,
+    expect_snapshot(
+      quarto_binary_sitrep(debug = TRUE)
+    )
+  )
 })