diff options
| -rw-r--r-- | R/guix.install.R | 8 | ||||
| -rw-r--r-- | inst/unitTests/test_guix.install.R | 3 |
2 files changed, 11 insertions, 0 deletions
diff --git a/R/guix.install.R b/R/guix.install.R index 66bb340..49d607a 100644 --- a/R/guix.install.R +++ b/R/guix.install.R @@ -18,6 +18,14 @@ guix.install <- function (package, profile = NULL, guix = "guix", archive = NULL) { + ## Abort if we can't execute Guix. + error <- suppressWarnings (system2 (guix, c("describe"), stderr=NULL, stdout=NULL)) + if (error == 127) { + stop (paste("Failed to run Guix command ", guix, ". Is it on PATH?")) + } else if (error != 0) { + stop (paste("Failed to run Guix command ", guix, ". Error code: ", error)) + } + if (is.null (profile)) { ## Use the default profile unless otherwise specified. guix_profile <- Sys.getenv ("GUIX_PROFILE", unset = NA) diff --git a/inst/unitTests/test_guix.install.R b/inst/unitTests/test_guix.install.R index f762744..3593f11 100644 --- a/inst/unitTests/test_guix.install.R +++ b/inst/unitTests/test_guix.install.R @@ -1,3 +1,6 @@ test.guix.install <- function () { checkException(guix.install("foo", guix="/doesnot/exist")) + + msg <- geterrmessage() + checkTrue(grepl("Failed to run Guix command", msg)) } |