test-name: description->alist: contains all valid keys location: /home/rsd/v/git/others/guix/tests/cran.scm:64 source: + (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)))) actual-value: #t result: PASS test-name: listify: return empty list if key cannot be found location: /home/rsd/v/git/others/guix/tests/cran.scm:73 source: + (test-equal + "listify: return empty list if key cannot be found" + '() + ((@@ (guix import cran) listify) + simple-alist + "Letters")) expected-value: () actual-value: () result: PASS test-name: listify: split comma-separated value into elements location: /home/rsd/v/git/others/guix/tests/cran.scm:77 source: + (test-equal + "listify: split comma-separated value into elements" + '("R" "Rcpp" "something" "whatever") + ((@@ (guix import cran) listify) + simple-alist + "SimpleList")) expected-value: (R Rcpp something whatever) actual-value: (R Rcpp something whatever) result: PASS test-name: listify: strip off parentheses location: /home/rsd/v/git/others/guix/tests/cran.scm:81 source: + (test-equal + "listify: strip off parentheses" + '("R" "BH" "GenomicRanges") + ((@@ (guix import cran) listify) + simple-alist + "List")) expected-value: (R BH GenomicRanges) actual-value: (R BH GenomicRanges) result: PASS test-name: listify: ignore values that are no lists location: /home/rsd/v/git/others/guix/tests/cran.scm:85 source: + (test-equal + "listify: ignore values that are no lists" + '() + ((@@ (guix import cran) listify) + simple-alist + "BadList")) expected-value: () actual-value: () result: PASS test-name: description->package location: /home/rsd/v/git/others/guix/tests/cran.scm:89 source: + (test-assert + "description->package" + (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) + 'cran + 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 + (((quote 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)))))) actual-value: #f actual-error: + (srfi-34 + #) result: FAIL random seed for tests: 1473544863 Some deprecated features have been used. Set the environment variable GUILE_WARN_DEPRECATED to "detailed" and rerun the program to get more information. Set it to "no" to suppress this message.