Subject: tests/print.scm is failing

From: Marius Bakke <[email-masked]>
Date: Sun, 19 Apr 2020 18:20:26 +0200

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