mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-16 03:45:24 -05:00
0f6b9e9828
* guix/import/cran.scm (description->alist, listify, beautify-description, description->package): New procedures. (table-datum, downloads->url, nodes->text, cran-sxml->sexp): Remove proceduces. (latest-release): Use parsed DESCRIPTION instead of SXML. * tests/cran.scm: Rewrite to match importer.
146 lines
5.1 KiB
Scheme
146 lines
5.1 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
|
||
;;;
|
||
;;; This file is part of GNU Guix.
|
||
;;;
|
||
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
||
;;; under the terms of the GNU General Public License as published by
|
||
;;; the Free Software Foundation; either version 3 of the License, or (at
|
||
;;; your option) any later version.
|
||
;;;
|
||
;;; GNU Guix is distributed in the hope that it will be useful, but
|
||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;;; GNU General Public License for more details.
|
||
;;;
|
||
;;; You should have received a copy of the GNU General Public License
|
||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
(define-module (test-cran)
|
||
#:use-module (guix import cran)
|
||
#:use-module (guix tests)
|
||
#:use-module (srfi srfi-1)
|
||
#:use-module (srfi srfi-64)
|
||
#:use-module (srfi srfi-26)
|
||
#:use-module (ice-9 match))
|
||
|
||
(define description "
|
||
Package: My-Example
|
||
Type: Package
|
||
Title: Example package
|
||
Version: 1.2.3
|
||
Date: 2015-12-10
|
||
Author: Ricardo Wurmus
|
||
Maintainer: Guix Schmeeks <guix@gnu.org>
|
||
URL: http://gnu.org/s/my-example
|
||
Description: This is a long description
|
||
spanning multiple lines: and it could confuse the parser that
|
||
there is a colon : on the lines.
|
||
And: this line continues the description.
|
||
biocViews: 0
|
||
SystemRequirements: Cairo (>= 0)
|
||
Depends: A C++11 compiler. Version 4.6.* of g++ (as
|
||
currently in Rtools) is insufficient; versions 4.8.*, 4.9.* or
|
||
later will be fine.
|
||
License: GPL (>= 3)
|
||
Imports: Rcpp (>= 0.11.5), proto, Scales
|
||
LinkingTo: Rcpp, BH
|
||
NeedsCompilation: yes
|
||
Repository: CRAN
|
||
Date/Publication: 2015-07-14 14:15:16
|
||
")
|
||
|
||
(define description-alist
|
||
((@@ (guix import cran) description->alist) description))
|
||
|
||
(define simple-alist
|
||
'(("Key" . "Value")
|
||
("SimpleList" . "R, Rcpp, something, whatever")
|
||
("BadList" . "This is not a real list, you know?")
|
||
("List" . "R (>= 2.2), BH (for no reason), GenomicRanges")))
|
||
|
||
(test-begin "cran")
|
||
|
||
(test-assert "description->alist: contains all valid keys"
|
||
(let ((keys '("Package" "Type" "Title" "Version" "Date"
|
||
"Author" "Maintainer" "URL" "Description"
|
||
"SystemRequirements" "Depends" "License"
|
||
"Imports" "biocViews" "LinkingTo"
|
||
"NeedsCompilation" "Repository"
|
||
"Date/Publication")))
|
||
(lset= string=? keys (map car description-alist))))
|
||
|
||
(test-equal "listify: return empty list if key cannot be found"
|
||
'()
|
||
((@@ (guix import cran) listify) simple-alist "Letters"))
|
||
|
||
(test-equal "listify: split comma-separated value into elements"
|
||
'("R" "Rcpp" "something" "whatever")
|
||
((@@ (guix import cran) listify) simple-alist "SimpleList"))
|
||
|
||
(test-equal "listify: strip off parentheses"
|
||
'("R" "BH" "GenomicRanges")
|
||
((@@ (guix import cran) listify) simple-alist "List"))
|
||
|
||
(test-equal "listify: ignore values that are no lists"
|
||
'()
|
||
((@@ (guix import cran) listify) simple-alist "BadList"))
|
||
|
||
(test-equal "beautify-description: use double spacing"
|
||
"This is a package. It is great. Trust me Mr. Hendrix."
|
||
((@@ (guix import cran) beautify-description)
|
||
"This is a package. It is great. Trust me Mr. Hendrix."))
|
||
|
||
(test-equal "beautify-description: transform fragment into sentence"
|
||
"This package provides a function to establish world peace"
|
||
((@@ (guix import cran) beautify-description)
|
||
"A function to establish world peace"))
|
||
|
||
(test-assert "description->package"
|
||
;; Replace network resources with sample data.
|
||
(mock ((guix build download) url-fetch
|
||
(lambda* (url file-name #:key (mirrors '()))
|
||
(with-output-to-file file-name
|
||
(lambda ()
|
||
(display
|
||
(match url
|
||
("mirror://cran/src/contrib/My-Example_1.2.3.tar.gz"
|
||
"source")
|
||
(_ (error "Unexpected URL: " url))))))))
|
||
(match ((@@ (guix import cran) description->package) description-alist)
|
||
(('package
|
||
('name "r-my-example")
|
||
('version "1.2.3")
|
||
('source ('origin
|
||
('method 'url-fetch)
|
||
('uri ('cran-uri "My-Example" 'version))
|
||
('sha256
|
||
('base32
|
||
(? string? hash)))))
|
||
('properties ('quasiquote (('upstream-name . "My-Example"))))
|
||
('build-system 'r-build-system)
|
||
('inputs
|
||
('quasiquote
|
||
(("cairo" ('unquote 'cairo)))))
|
||
('propagated-inputs
|
||
('quasiquote
|
||
(("r-bh" ('unquote 'r-bh))
|
||
("r-proto" ('unquote 'r-proto))
|
||
("r-rcpp" ('unquote 'r-rcpp))
|
||
("r-scales" ('unquote 'r-scales)))))
|
||
('home-page "http://gnu.org/s/my-example")
|
||
('synopsis "Example package")
|
||
('description
|
||
"This is a long description spanning multiple lines: \
|
||
and it could confuse the parser that there is a colon : on the \
|
||
lines. And: this line continues the description.")
|
||
('license 'gpl3+)))
|
||
(x
|
||
(begin
|
||
(format #t "~s\n" x)
|
||
(pk 'fail x #f))))))
|
||
|
||
(test-end "cran")
|
||
|
||
|
||
(exit (= (test-runner-fail-count (test-runner-current)) 0))
|