bug#40717: tests/print.scm is failing

[Marius Bakke]

Hello,

Running 'make check TESTS=tests/print.scm' results in two failures:

FAIL: tests/print
=================

test-name: simple package
location: /home/marius/guix/tests/print.scm:70
source:
+ (test-equal
+   "simple package"
+   pkg-source
+   (package->code pkg))
expected-value: (package (name "test") (version "1.2.3") (source (origin 
(method url-fetch) (uri (string-append "file:///tmp/test-" version ".tar.gz")) 
(sha256 (base32 "070pwb7brdcn1mfvplkd56vjc7lbz4iznzkqvfsakvgbv68k71ah")))) 
(build-system gnu-build-system) (home-page "http://gnu.org";) (synopsis "Dummy") 
(description "This is a dummy package.") (license gpl3+))
actual-value: (define-public test (package (name "test") (version "1.2.3") 
(source (origin (method url-fetch) (uri (string-append "file:///tmp/test-" 
version ".tar.gz")) (sha256 (base32 
"070pwb7brdcn1mfvplkd56vjc7lbz4iznzkqvfsakvgbv68k71ah")))) (build-system (@ 
(guix build-system gnu) gnu-build-system)) (home-page "http://gnu.org";) 
(synopsis "Dummy") (description "This is a dummy package.") (license 
license:gpl3+)))
result: FAIL

test-name: package with inputs
location: /home/marius/guix/tests/print.scm:74
source:
+ (test-equal
+   "package with inputs"
+   pkg-with-inputs-source
+   (package->code pkg-with-inputs))
expected-value: (package (name "test") (version "1.2.3") (source (origin 
(method url-fetch) (uri (string-append "file:///tmp/test-" version ".tar.gz")) 
(sha256 (base32 "070pwb7brdcn1mfvplkd56vjc7lbz4iznzkqvfsakvgbv68k71ah")))) 
(build-system gnu-build-system) (inputs (quasiquote (("coreutils" (unquote (@ 
(gnu packages base) coreutils))) ("glibc" (unquote (@ (gnu packages base) 
glibc)) "debug")))) (home-page "http://gnu.org";) (synopsis "Dummy") 
(description "This is a dummy package.") (license gpl3+))
actual-value: (define-public test (package (name "test") (version "1.2.3") 
(source (origin (method url-fetch) (uri (string-append "file:///tmp/test-" 
version ".tar.gz")) (sha256 (base32 
"070pwb7brdcn1mfvplkd56vjc7lbz4iznzkqvfsakvgbv68k71ah")))) (build-system (@ 
(guix build-system gnu) gnu-build-system)) (inputs (quasiquote (("coreutils" 
(unquote (@ (gnu packages base) coreutils))) ("glibc" (unquote (@ (gnu packages 
base) glibc)) "debug")))) (home-page "http://gnu.org";) (synopsis "Dummy") 
(description "This is a dummy package.") (license license:gpl3+)))
result: FAIL

signature.asc
Description: PGP signature