guix/tests/cran.scm

147 lines
5.1 KiB
Scheme
Raw Normal View History

;;; 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))