diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2025-11-14 22:26:20 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2025-11-29 12:19:08 +0100 |
| commit | ad87b718eda20924b378fcf2d1ea2888a146caa6 (patch) | |
| tree | 8ddb3cb7514ca7244b50d78b517f43796d73f0b9 /tests | |
| parent | 383fb009c873cca4659b6082c9ccd160bbc78061 (diff) | |
import/cran: Reduce false positives in extracting imports.
* tests/import/cran.scm: Add tests for extract-imports.
* guix/import/cran.scm (extract-imports): New procedure, extracted from...
(needed-test-inputs-in-directory): ...this procedure, which now uses it.
(import-pattern): Update regex pattern.
Change-Id: I07ac3f685ff08a0fa7da3c25cf1f63fbca18b95f
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/import/cran.scm | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/tests/import/cran.scm b/tests/import/cran.scm index 5c820b1ab32..6b1bcc297dd 100644 --- a/tests/import/cran.scm +++ b/tests/import/cran.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2015, 2025 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; ;;; This file is part of GNU Guix. @@ -20,6 +20,7 @@ (define-module (test-cran) #:use-module (gnu packages statistics) #:use-module (guix import cran) + #:use-module (guix sets) #:use-module (guix tests) #:use-module (srfi srfi-1) #:use-module (srfi srfi-64) @@ -88,7 +89,21 @@ Date/Publication: 2015-07-14 14:15:16 '() ((@@ (guix import cran) listify) simple-alist "BadList")) -(test-equal "r-mininal is not a cran package" +(test-equal "extract-imports: finds data.table" + (list "data.table") + (set->list ((@ (guix import cran) extract-imports) "abc + data.table::some_procedure()"))) + +(test-equal "extract-imports: ignores text inside strings" + (list) + (set->list ((@ (guix import cran) extract-imports) + "\"hello::world\", \"this is not data.table::some_procedure(), actually\""))) + +(test-equal "extract-imports: ignores other colon separated things" + (list) + (set->list ((@ (guix import cran) extract-imports) + "this:is:not::a:procedure"))) + +(test-equal "r-minimal is not a cran package" #f ((@@ (guix import cran) cran-package?) r-minimal)) |