import/cran: Fix import of packages in single quotes.

* guix/import/cran.scm (import-pattern): Also match on single quotes.
(needed-vignettes-inputs-in-directory): Use EXTRACT-IMPORTS.
* tests/import/cran.scm: Add test.

Change-Id: Ie69027992519bd8d886860346f4a359514d8e822

1 files changed, 6 insertions, 1 deletions

diff --git a/tests/import/cran.scm b/tests/import/cran.scm
index 0b6303370ae..19fd580931c 100644
--- a/tests/import/cran.scm
+++ b/tests/import/cran.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2015, 2025 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2015, 2025-2026 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -98,6 +98,11 @@ Date/Publication: 2015-07-14 14:15:16
   (set->list ((@ (guix import cran) extract-imports)
               "\"hello::world\", \"this is not data.table::some_procedure(), actually\"")))
 
+(test-equal "extract-imports: extracts text inside single quotes"
+  (list "FDb.InfiniumMethylation.hg19")
+  (set->list ((@ (guix import cran) extract-imports)
+              "suppressPackageStartupMessages(require('FDb.InfiniumMethylation.hg19'))")))
+
 (test-equal "extract-imports: ignores other colon separated things"
   (list)
   (set->list ((@ (guix import cran) extract-imports)