From b215cb2027d930b72b43f4d4bb3c090d2c703176 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Wed, 19 Nov 2025 15:50:32 +0100
Subject: [PATCH] import/cran: Detect library references in "check_installed".

* guix/import/cran.scm (import-pattern): Add case for "check_installed".
* tests/import/cran.scm: Add test.

Change-Id: Id69371158eecaeb371056e6954a3109687346c22
---
 guix/import/cran.scm  | 2 +-
 tests/import/cran.scm | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/guix/import/cran.scm b/guix/import/cran.scm
index b24a732af97..ca194af500b 100644
--- a/guix/import/cran.scm
+++ b/guix/import/cran.scm
@@ -570,7 +570,7 @@ referenced in build system files."
     ;; Quiet imports
     "(suppressPackageStartupMessages\\()?"
     ;; the actual import statement.
-    "(require|library)\\(\"?([^, \")]+)"
+    "(require|library|check_installed)\\(\"?([^, \")]+)"
     ;; Or perhaps...
     "|"
     ;; ...direct namespace access.
diff --git a/tests/import/cran.scm b/tests/import/cran.scm
index 6b1bcc297dd..0b6303370ae 100644
--- a/tests/import/cran.scm
+++ b/tests/import/cran.scm
@@ -103,6 +103,11 @@ Date/Publication: 2015-07-14 14:15:16
   (set->list ((@ (guix import cran) extract-imports)
               "this:is:not::a:procedure")))
 
+(test-equal "extract-imports: matches things before a comma"
+  (list "MASS")
+  (set->list ((@ (guix import cran) extract-imports)
+              "check_installed(\"MASS\",")))
+
 (test-equal "r-minimal is not a cran package"
   #f
   ((@@ (guix import cran) cran-package?) r-minimal))