From c7ef26e798556c6906034db65d369f11c74c2a3a Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Thu, 7 Apr 2022 09:26:01 +0200
Subject: Fail early if Guix command does not exist.

---
 inst/unitTests/test_guix.install.R | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'inst')

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))
 }
-- 
cgit v1.2.3