gnu: r-forestplot: Add missing input. - guix - Wojtek's customized Guix

about summary refs log tree commit diff

path: root/tests/guix-pack-relocatable.sh

diff options

author	Ricardo Wurmus <rekado@elephly.net>	2024-11-26 18:06:01 +0100
committer	Ricardo Wurmus <rekado@elephly.net>	2024-12-03 16:59:50 +0100
commit	7e9aa79900eb44607812cc36e00c2e47340e2734 (patch)
tree	c0f3e0cc00230aa109ed003a41ad5d9f5a7e663c /tests/guix-pack-relocatable.sh
parent	1bfe1a206f1c43b99540fd8d970fb9a9f2caf67f (diff)
download	guix-7e9aa79900eb44607812cc36e00c2e47340e2734.tar.gz guix-7e9aa79900eb44607812cc36e00c2e47340e2734.zip

gnu: r-forestplot: Add missing input.

* gnu/packages/cran.scm (r-forestplot)[native-inputs]: Add r-dplyr and r-tidyr. [arguments]: Add phase 'delete-bad-tests. Change-Id: I31efb7a69a311e25a41eec176567e8531ffa29e4

Diffstat (limited to 'tests/guix-pack-relocatable.sh')

0 files changed, 0 insertions, 0 deletions

) #:use-module (web response) #:use-module (web uri)) (test-begin "http-client") (test-equal "http-fetch, one request, binary" (string->utf8 "Hello, world.") (with-http-server `((200 "Hello, world.")) (let* ((port (http-fetch (%local-url))) (bv (get-bytevector-all port))) (close-port port) bv))) (test-equal "http-fetch, one request, text" "Hello, world." (with-http-server `((200 "Hello, world.")) (let* ((port (http-fetch (%local-url) #:text? #t)) (data (get-string-all port))) (close-port port) data))) (test-equal "http-fetch, redirect" "Hello, world." (with-http-server `((,(build-response #:code 301 #:headers `((location . ,(string->uri-reference "/elsewhere"))) #:reason-phrase "Moved") "Redirect!") (200 "Hello, world.")) (let* ((port (http-fetch (%local-url))) (data (get-string-all port))) (close-port port) data))) (test-equal "http-fetch, error" 404 (with-http-server `((404 "Ne trovita.")) (guard (c ((http-get-error? c) (http-get-error-code c))) (http-fetch (%local-url)) #f))) (test-equal "http-fetch, redirect + error" 403 (with-http-server `((,(build-response #:code 302 #:headers `((location . ,(string->uri-reference "/elsewhere"))) #:reason-phrase "Moved") "Redirect!") (403 "Verboten.")) (guard (c ((http-get-error? c) (http-get-error-code c))) (http-fetch (%local-url)) #f))) (test-end "http-client")