From unknown Mon Jun 23 04:12:18 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#36840 <36840@debbugs.gnu.org> To: bug#36840 <36840@debbugs.gnu.org> Subject: Status: Failing tests (tests/swh.scm tests/pypi.scm tests/gem.scm tests/crate.scm tests/cpan.scm) Reply-To: bug#36840 <36840@debbugs.gnu.org> Date: Mon, 23 Jun 2025 11:12:18 +0000 retitle 36840 Failing tests (tests/swh.scm tests/pypi.scm tests/gem.scm tes= ts/crate.scm tests/cpan.scm) reassign 36840 guix submitter 36840 P severity 36840 normal tag 36840 notabug thanks From debbugs-submit-bounces@debbugs.gnu.org Mon Jul 29 12:16:35 2019 Received: (at submit) by debbugs.gnu.org; 29 Jul 2019 16:16:35 +0000 Received: from localhost ([127.0.0.1]:49018 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hs8K3-0006gr-R9 for submit@debbugs.gnu.org; Mon, 29 Jul 2019 12:16:33 -0400 Received: from lists.gnu.org ([209.51.188.17]:35840) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hs8Jw-0006gM-Mb for submit@debbugs.gnu.org; Mon, 29 Jul 2019 12:16:26 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:57155) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hs8Ju-0004VR-39 for bug-guix@gnu.org; Mon, 29 Jul 2019 12:16:20 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.1 required=5.0 tests=BAYES_50,FREEMAIL_FROM, RCVD_IN_DNSWL_LOW,T_FILL_THIS_FORM_SHORT,URIBL_BLOCKED autolearn=disabled version=3.3.2 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hs8Jr-0003Zl-EV for bug-guix@gnu.org; Mon, 29 Jul 2019 12:16:18 -0400 Received: from mail-40136.protonmail.ch ([185.70.40.136]:17605) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1hs8Jq-0003XU-Qo for bug-guix@gnu.org; Mon, 29 Jul 2019 12:16:15 -0400 Date: Mon, 29 Jul 2019 16:15:59 +0000 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=protonmail.com; s=default; t=1564416965; bh=WEX9uvJK2/7ECHaEcixuT2JX8x3J3CFMU/oYqJzd/XU=; h=Date:To:From:Reply-To:Subject:Feedback-ID:From; b=nMAw7YrNAKzM0+hvMCgU0DMDCGkuAGkXUoL8XcvURHeq8A1VMofJizWqyzOrcdVDC mnIFcH1+iIYsQikaFLXzUJGHq7obweBMdQ43xKVatee5OwZM0Zapl9hJBf8ExvVQ/u w97cG6wiiGUbVN2zm84vZbB/KHvzeN8FwGq+IDag= To: "bug-guix@gnu.org" From: P Subject: Failing tests (tests/swh.scm tests/pypi.scm tests/gem.scm tests/crate.scm tests/cpan.scm) Message-ID: Feedback-ID: Zwf-AgKjGj7p61o7kGbWJBUHpipzTNxEbnwmq2vFFWU6VWtG3efTH1K380U1ZptvR7SP_Gj0c6oobGC7S4SuLw==:Ext:ProtonMail MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 185.70.40.136 X-Spam-Score: -1.3 (-) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: P Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -2.3 (--) commit: 767a0a18d88479c713f1b9b034bd06eedfe71a80 (or rather the previous co= mmit, there are some small unrelated changes in gnu/packages/idris.scm) make check TESTS=3D"tests/swh.scm tests/pypi.scm tests/gem.scm tests/crate.= scm tests/cpan.scm" SCM_LOG_DRIVER_FLAGS=3D"--brief=3Dno" =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D GNU Guix 1.0.1.1832-23243: ./test-suite.log =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D # TOTAL: 21 # PASS: 12 # SKIP: 1 # XFAIL: 0 # FAIL: 8 # XPASS: 0 # ERROR: 0 .. contents:: :depth: 2 FAIL: tests/swh =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D test-name: lookup-origin location: /home/raingloom/Projects/Guix/guix-source/tests/swh.scm:49 source: + (test-equal + "lookup-origin" + (list 42 "git" "http://example.org/guix.git") + (with-json-result + %origin + (let ((origin + (lookup-origin "http://example.org/guix.git"))) + (list (origin-id origin) + (origin-type origin) + (origin-url origin))))) expected-value: (42 "git" "http://example.org/guix.git") actual-value: (#f #f #f) result: FAIL test-name: lookup-origin, not found location: /home/raingloom/Projects/Guix/guix-source/tests/swh.scm:57 source: + (test-equal + "lookup-origin, not found" + #f + (with-http-server + 404 + "Nope." + (parameterize + ((%swh-base-url (%local-url))) + (lookup-origin "http://example.org/whatever")))) expected-value: #f actual-value: #f result: PASS test-name: lookup-directory location: /home/raingloom/Projects/Guix/guix-source/tests/swh.scm:63 source: + (test-equal + "lookup-directory" + '(("one" 123) ("two" 456)) + (with-json-result + %directory-entries + (map (lambda (entry) + (list (directory-entry-name entry) + (directory-entry-length entry))) + (lookup-directory "123")))) expected-value: (("one" 123) ("two" 456)) actual-value: #f actual-error: + (wrong-type-arg + #f + "Wrong type (expecting ~A): ~S" + ("array" + (# + #)) + ((# + #))) result: FAIL FAIL: tests/pypi =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D test-name: guix-package->pypi-name, old URL style location: /home/raingloom/Projects/Guix/guix-source/tests/pypi.scm:122 source: + (test-equal + "guix-package->pypi-name, old URL style" + "psutil" + (guix-package->pypi-name + (dummy-package + "foo" + (source + (dummy-origin + (uri "https://pypi.org/packages/source/p/psutil/psutil-4.3.0.ta= r.gz")))))) expected-value: "psutil" actual-value: "psutil" result: PASS test-name: guix-package->pypi-name, new URL style location: /home/raingloom/Projects/Guix/guix-source/tests/pypi.scm:130 source: + (test-equal + "guix-package->pypi-name, new URL style" + "certbot" + (guix-package->pypi-name + (dummy-package + "foo" + (source + (dummy-origin + (uri "https://pypi.org/packages/a2/3b/4756e6a0ceb14e084042a2a65= c615d68d25621c6fd446d0fc10d14c4ce7d/certbot-0.8.1.tar.gz")))))) expected-value: "certbot" actual-value: "certbot" result: PASS test-name: guix-package->pypi-name, several URLs location: /home/raingloom/Projects/Guix/guix-source/tests/pypi.scm:138 source: + (test-equal + "guix-package->pypi-name, several URLs" + "cram" + (guix-package->pypi-name + (dummy-package + "foo" + (source + (dummy-origin + (uri (list "https://bitheap.org/cram/cram-0.7.tar.gz" + (pypi-uri "cram" "0.7")))))))) expected-value: "cram" actual-value: "cram" result: PASS test-name: specification->requirement-name location: /home/raingloom/Projects/Guix/guix-source/tests/pypi.scm:147 source: + (test-equal + "specification->requirement-name" + '("Fizzy" + "PickyThing" + "SomethingWithMarker" + "requests" + "pip") + (map specification->requirement-name + test-specifications)) expected-value: ("Fizzy" "PickyThing" "SomethingWithMarker" "requests" "pip= ") actual-value: ("Fizzy" "PickyThing" "SomethingWithMarker" "requests" "pip") result: PASS test-name: parse-requires.txt location: /home/raingloom/Projects/Guix/guix-source/tests/pypi.scm:151 source: + (test-equal + "parse-requires.txt" + (list '("foo" "bar") '("pytest")) + (mock ((ice-9 ports) + call-with-input-file + call-with-input-string) + (parse-requires.txt test-requires.txt))) expected-value: (("foo" "bar") ("pytest")) actual-value: (("foo" "bar") ("pytest")) result: PASS test-name: parse-requires.txt - Beaker location: /home/raingloom/Projects/Guix/guix-source/tests/pypi.scm:157 source: + (test-equal + "parse-requires.txt - Beaker" + (list '() '("Mock" "coverage")) + (mock ((ice-9 ports) + call-with-input-file + call-with-input-string) + (parse-requires.txt test-requires.txt-beaker))) expected-value: (() ("Mock" "coverage")) actual-value: (() ("Mock" "coverage")) result: PASS test-name: parse-wheel-metadata, with extras location: /home/raingloom/Projects/Guix/guix-source/tests/pypi.scm:163 source: + (test-equal + "parse-wheel-metadata, with extras" + (list '("wrapt" "bar") '("tox" "bumpversion")) + (mock ((ice-9 ports) + call-with-input-file + call-with-input-string) + (parse-wheel-metadata test-metadata-with-extras))) expected-value: (("wrapt" "bar") ("tox" "bumpversion")) actual-value: (("wrapt" "bar") ("tox" "bumpversion")) result: PASS test-name: parse-wheel-metadata, with extras - Jedi location: /home/raingloom/Projects/Guix/guix-source/tests/pypi.scm:169 source: + (test-equal + "parse-wheel-metadata, with extras - Jedi" + (list '("parso") '("pytest")) + (mock ((ice-9 ports) + call-with-input-file + call-with-input-string) + (parse-wheel-metadata + test-metadata-with-extras-jedi))) expected-value: (("parso") ("pytest")) actual-value: (("parso") ("pytest")) result: PASS test-name: pypi->guix-package, no wheel location: /home/raingloom/Projects/Guix/guix-source/tests/pypi.scm:175 source: + (test-assert + "pypi->guix-package, no wheel" + (mock ((guix import utils) + url-fetch + (lambda (url file-name) + (match url + ("https://example.com/foo-1.0.0.tar.gz" + (begin + (mkdir-p "foo-1.0.0/src/bizarre.egg-info") + (with-output-to-file + "foo-1.0.0/src/bizarre.egg-info/requires.txt" + (lambda () (display test-requires.txt))) + (parameterize + ((current-output-port (%make-void-port "rw+"))) + (system* "tar" "czvf" file-name "foo-1.0.0/")) + (delete-file-recursively "foo-1.0.0") + (set! test-source-hash + (call-with-input-file file-name port-sha256)))) + ("https://example.com/foo-1.0.0-py2.py3-none-any.whl" + #f) + (_ (error "Unexpected URL: " url))))) + (mock ((guix http-client) + http-fetch + (lambda (url . rest) + (match url + ("https://pypi.org/pypi/foo/json" + (values + (open-input-string test-json) + (string-length test-json))) + ("https://example.com/foo-1.0.0-py2.py3-none-any.= whl" + #f) + (_ (error "Unexpected URL: " url))))) + (match (pypi->guix-package "foo") + (('package + ('name "python-foo") + ('version "1.0.0") + ('source + ('origin + ('method 'url-fetch) + ('uri ('pypi-uri "foo" 'version)) + ('sha256 ('base32 (? string? hash))))) + ('build-system 'python-build-system) + ('propagated-inputs + ('quasiquote + (("python-bar" ('unquote 'python-bar)) + ("python-foo" ('unquote 'python-foo))))) + ('native-inputs + ('quasiquote + (("python-pytest" ('unquote 'python-pytest))))) + ('home-page "http://example.com") + ('synopsis "summary") + ('description "summary") + ('license 'license:lgpl2.0)) + (string=3D? + (bytevector->nix-base32-string test-source-hash) + hash)) + (x (pk 'fail x #f)))))) actual-value: #f actual-error: + (wrong-type-arg + #f + "Wrong type (expecting ~A): ~S" + ("array" #f) + (#f)) result: FAIL test-name: pypi->guix-package, wheels location: /home/raingloom/Projects/Guix/guix-source/tests/pypi.scm:231 source: + (test-assert + "pypi->guix-package, wheels" + (mock ((guix import utils) + url-fetch + (lambda (url file-name) + (match url + ("https://example.com/foo-1.0.0.tar.gz" + (begin + (mkdir-p "foo-1.0.0/foo.egg-info/") + (with-output-to-file + "foo-1.0.0/foo.egg-info/requires.txt" + (lambda () + (display + "wrong data to make sure we're testing wheels = "))) + (parameterize + ((current-output-port (%make-void-port "rw+"))) + (system* "tar" "czvf" file-name "foo-1.0.0/")) + (delete-file-recursively "foo-1.0.0") + (set! test-source-hash + (call-with-input-file file-name port-sha256)))) + ("https://example.com/foo-1.0.0-py2.py3-none-any.whl" + (begin + (mkdir "foo-1.0.0.dist-info") + (with-output-to-file + "foo-1.0.0.dist-info/METADATA" + (lambda () (display test-metadata))) + (let ((zip-file (string-append file-name ".zip"))) + (system* + "zip" + "-q" + zip-file + "foo-1.0.0.dist-info/METADATA") + (rename-file zip-file file-name)) + (delete-file-recursively "foo-1.0.0.dist-info"))) + (_ (error "Unexpected URL: " url))))) + (mock ((guix http-client) + http-fetch + (lambda (url . rest) + (match url + ("https://pypi.org/pypi/foo/json" + (values + (open-input-string test-json) + (string-length test-json))) + ("https://example.com/foo-1.0.0-py2.py3-none-any.= whl" + #f) + (_ (error "Unexpected URL: " url))))) + (invalidate-memoization! pypi->guix-package) + (match (pypi->guix-package "foo") + (('package + ('name "python-foo") + ('version "1.0.0") + ('source + ('origin + ('method 'url-fetch) + ('uri ('pypi-uri "foo" 'version)) + ('sha256 ('base32 (? string? hash))))) + ('build-system 'python-build-system) + ('propagated-inputs + ('quasiquote + (("python-bar" ('unquote 'python-bar)) + ("python-baz" ('unquote 'python-baz))))) + ('native-inputs + ('quasiquote + (("python-pytest" ('unquote 'python-pytest))))) + ('home-page "http://example.com") + ('synopsis "summary") + ('description "summary") + ('license 'license:lgpl2.0)) + (string=3D? + (bytevector->nix-base32-string test-source-hash) + hash)) + (x (pk 'fail x #f)))))) result: SKIP test-name: pypi->guix-package, no usable requirement file. location: /home/raingloom/Projects/Guix/guix-source/tests/pypi.scm:299 source: + (test-assert + "pypi->guix-package, no usable requirement file." + (mock ((guix import utils) + url-fetch + (lambda (url file-name) + (match url + ("https://example.com/foo-1.0.0.tar.gz" + (mkdir-p "foo-1.0.0/foo.egg-info/") + (parameterize + ((current-output-port (%make-void-port "rw+"))) + (system* "tar" "czvf" file-name "foo-1.0.0/")) + (delete-file-recursively "foo-1.0.0") + (set! test-source-hash + (call-with-input-file file-name port-sha256))) + ("https://example.com/foo-1.0.0-py2.py3-none-any.whl" + #f) + (_ (error "Unexpected URL: " url))))) + (mock ((guix http-client) + http-fetch + (lambda (url . rest) + (match url + ("https://pypi.org/pypi/foo/json" + (values + (open-input-string test-json) + (string-length test-json))) + ("https://example.com/foo-1.0.0-py2.py3-none-any.= whl" + #f) + (_ (error "Unexpected URL: " url))))) + (invalidate-memoization! pypi->guix-package) + (match (pypi->guix-package "foo") + (('package + ('name "python-foo") + ('version "1.0.0") + ('source + ('origin + ('method 'url-fetch) + ('uri ('pypi-uri "foo" 'version)) + ('sha256 ('base32 (? string? hash))))) + ('build-system 'python-build-system) + ('home-page "http://example.com") + ('synopsis "summary") + ('description "summary") + ('license 'license:lgpl2.0)) + (string=3D? + (bytevector->nix-base32-string test-source-hash) + hash)) + (x (pk 'fail x #f)))))) actual-value: #f actual-error: + (wrong-type-arg + #f + "Wrong type (expecting ~A): ~S" + ("array" #f) + (#f)) result: FAIL random seed for tests: 1564442102 FAIL: tests/gem =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D test-name: gem->guix-package location: /home/raingloom/Projects/Guix/guix-source/tests/gem.scm:77 source: + (test-assert + "gem->guix-package" + (mock ((guix http-client) + http-fetch + (lambda (url . rest) + (match url + ("https://rubygems.org/api/v1/gems/foo.json" + (values + (open-input-string test-foo-json) + (string-length test-foo-json))) + (_ (error "Unexpected URL: " url))))) + (match (gem->guix-package "foo") + (('package + ('name "ruby-foo") + ('version "1.0.0") + ('source + ('origin + ('method 'url-fetch) + ('uri ('rubygems-uri "foo" 'version)) + ('sha256 + ('base32 + "1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwrz= k")))) + ('build-system 'ruby-build-system) + ('propagated-inputs + ('quasiquote + (("bundler" ('unquote 'bundler)) + ("ruby-bar" ('unquote 'ruby-bar))))) + ('synopsis "A cool gem") + ('description "This package provides a cool gem") + ('home-page "https://example.com") + ('license ('list 'license:expat 'license:asl2.0))) + #t) + (x (pk 'fail x #f))))) actual-value: #f actual-error: + (wrong-type-arg + "string-prefix?" + "Wrong type argument in position ~A (expecting ~A): ~S" + (2 "string" #f) + (#f)) result: FAIL test-name: gem-recursive-import location: /home/raingloom/Projects/Guix/guix-source/tests/gem.scm:109 source: + (test-assert + "gem-recursive-import" + (mock ((guix http-client) + http-fetch + (lambda (url . rest) + (match url + ("https://rubygems.org/api/v1/gems/foo.json" + (values + (open-input-string test-foo-json) + (string-length test-foo-json))) + ("https://rubygems.org/api/v1/gems/bar.json" + (values + (open-input-string test-bar-json) + (string-length test-bar-json))) + ("https://rubygems.org/api/v1/gems/bundler.json" + (values + (open-input-string test-bundler-json) + (string-length test-bundler-json))) + (_ (error "Unexpected URL: " url))))) + (match (stream->list (gem-recursive-import "foo")) + ((('package + ('name "ruby-foo") + ('version "1.0.0") + ('source + ('origin + ('method 'url-fetch) + ('uri ('rubygems-uri "foo" 'version)) + ('sha256 + ('base32 + "1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwr= zk")))) + ('build-system 'ruby-build-system) + ('propagated-inputs + ('quasiquote + (("bundler" ('unquote 'bundler)) + ("ruby-bar" ('unquote 'ruby-bar))))) + ('synopsis "A cool gem") + ('description "This package provides a cool gem") + ('home-page "https://example.com") + ('license ('list 'license:expat 'license:asl2.0))) + ('package + ('name "ruby-bundler") + ('version "1.14.2") + ('source + ('origin + ('method 'url-fetch) + ('uri ('rubygems-uri "bundler" 'version)) + ('sha256 + ('base32 + "1446xiz7zg0bz7kgx9jv84y0s4hpsg61dj5l3qb0i00avc1kxd= 9v")))) + ('build-system 'ruby-build-system) + ('synopsis "Ruby gem bundler") + ('description "Ruby gem bundler") + ('home-page "https://bundler.io/") + ('license 'license:expat)) + ('package + ('name "ruby-bar") + ('version "1.0.0") + ('source + ('origin + ('method 'url-fetch) + ('uri ('rubygems-uri "bar" 'version)) + ('sha256 + ('base32 + "1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwr= zk")))) + ('build-system 'ruby-build-system) + ('propagated-inputs + ('quasiquote (('"bundler" ('unquote 'bundler))))) + ('synopsis "Another cool gem") + ('description "Another cool gem") + ('home-page "https://example.com") + ('license ('list 'license:expat 'license:asl2.0)))) + #t) + (x (pk 'fail x #f))))) actual-value: #f actual-error: + (wrong-type-arg + "string-prefix?" + "Wrong type argument in position ~A (expecting ~A): ~S" + (2 "string" #f) + (#f)) result: FAIL random seed for tests: 1564442069 FAIL: tests/crate =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D test-name: guix-package->crate-name location: /home/raingloom/Projects/Guix/guix-source/tests/crate.scm:57 source: + (test-equal + "guix-package->crate-name" + "rustc-serialize" + (guix-package->crate-name + (dummy-package + "rust-rustc-serialize" + (source + (dummy-origin + (uri (crate-uri "rustc-serialize" "1.0"))))))) expected-value: "rustc-serialize" actual-value: "rustc-serialize" result: PASS test-name: crate->guix-package location: /home/raingloom/Projects/Guix/guix-source/tests/crate.scm:65 source: + (test-assert + "crate->guix-package" + (mock ((guix http-client) + http-fetch + (lambda (url . rest) + (match url + ("https://crates.io/api/v1/crates/foo" + (open-input-string test-crate)) + ("https://crates.io/api/v1/crates/foo/1.0.0/download" + (set! test-source-hash + (bytevector->nix-base32-string + (sha256 + (string->bytevector "empty file\n" "utf-8")))) + (open-input-string "empty file\n")) + ("https://crates.io/api/v1/crates/foo/1.0.0/dependencie= s" + (open-input-string test-dependencies)) + (_ (error "Unexpected URL: " url))))) + (match (crate->guix-package "foo") + (('package + ('name "rust-foo") + ('version "1.0.0") + ('source + ('origin + ('method 'url-fetch) + ('uri ('crate-uri "foo" 'version)) + ('file-name + ('string-append 'name "-" 'version ".tar.gz")) + ('sha256 ('base32 (? string? hash))))) + ('build-system 'cargo-build-system) + ('arguments + ('quasiquote + ('#:cargo-inputs + (("rust-bar" ('unquote rust-bar)))))) + ('home-page "http://example.com") + ('synopsis "summary") + ('description "summary") + ('license ('list 'license:expat 'license:asl2.0))) + (string=3D? test-source-hash hash)) + (x (pk 'fail x #f))))) ;;; (fail #f #f) actual-value: #f result: FAIL random seed for tests: 1564441648 FAIL: tests/cpan =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D random seed for tests: 1564441618 test-name: cpan->guix-package location: /home/raingloom/Projects/Guix/guix-source/tests/cpan.scm:61 source: + (test-assert + "cpan->guix-package" + (mock ((guix build download) + url-fetch + (lambda* (url + file-name + #:key + (mirrors '()) + verify-certificate?) + (with-output-to-file + file-name + (lambda () + (display + (match url + ("http://example.com/Foo-Bar-0.1.tar.gz" + test-source) + (_ (error "Unexpected URL: " url)))))))) + (mock ((guix http-client) + http-fetch + (lambda (url . rest) + (match url + ("https://fastapi.metacpan.org/v1/release/Foo-Bar= " + (values + (open-input-string test-json) + (string-length test-json))) + ("https://fastapi.metacpan.org/v1/module/Test::Sc= ript?fields=3Ddistribution" + (let ((result + "{ \"distribution\" : \"Test-Script\" }"= )) + (values + (open-input-string result) + (string-length result)))) + (_ (error "Unexpected URL: " url))))) + (match (cpan->guix-package "Foo::Bar") + (('package + ('name "perl-foo-bar") + ('version "0.1") + ('source + ('origin + ('method 'url-fetch) + ('uri + ('string-append + "http://example.com/Foo-Bar-" + 'version + ".tar.gz")) + ('sha256 ('base32 (? string? hash))))) + ('build-system 'perl-build-system) + ('propagated-inputs + ('quasiquote + (("perl-test-script" + ('unquote 'perl-test-script))))) + ('home-page + "https://metacpan.org/release/Foo-Bar") + ('synopsis "Fizzle Fuzz") + ('description 'fill-in-yourself!) + ('license 'perl-license)) + (string=3D? + (bytevector->nix-base32-string + (call-with-input-string test-source port-sha256= )) + hash)) + (x (pk 'fail x #f)))))) actual-value: #f actual-error: + (wrong-type-arg + "string-prefix?" + "Wrong type argument in position ~A (expecting ~A): ~S" + (2 "string" #f) + (#f)) result: FAIL test-name: source-url-http location: /home/raingloom/Projects/Guix/guix-source/tests/cpan.scm:110 source: + (test-equal + "source-url-http" + ((@@ (guix import cpan) cpan-source-url) + `(("download_url" + . + "http://cpan.metacpan.org/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz")= )) + "mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz") expected-value: "mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz" actual-value: "mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz" result: PASS test-name: source-url-https location: /home/raingloom/Projects/Guix/guix-source/tests/cpan.scm:116 source: + (test-equal + "source-url-https" + ((@@ (guix import cpan) cpan-source-url) + `(("download_url" + . + "https://cpan.metacpan.org/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz"= ))) + "mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz") expected-value: "mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz" actual-value: "mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz" result: PASS From debbugs-submit-bounces@debbugs.gnu.org Fri Aug 09 05:20:48 2019 Received: (at 36840) by debbugs.gnu.org; 9 Aug 2019 09:20:48 +0000 Received: from localhost ([127.0.0.1]:42051 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hw14q-0006zs-3c for submit@debbugs.gnu.org; Fri, 09 Aug 2019 05:20:48 -0400 Received: from eggs.gnu.org ([209.51.188.92]:35880) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hw14o-0006zg-6Y for 36840@debbugs.gnu.org; Fri, 09 Aug 2019 05:20:46 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:50632) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hw14j-0000Sl-1w; Fri, 09 Aug 2019 05:20:41 -0400 Received: from adijon-655-1-159-145.w90-6.abo.wanadoo.fr ([90.6.12.145]:45152 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1hw14i-0002Pa-HZ; Fri, 09 Aug 2019 05:20:40 -0400 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: P Subject: Re: bug#36840: Failing tests (tests/swh.scm tests/pypi.scm tests/gem.scm tests/crate.scm tests/cpan.scm) References: Date: Fri, 09 Aug 2019 11:20:38 +0200 In-Reply-To: (P.'s message of "Mon, 29 Jul 2019 16:15:59 +0000") Message-ID: <87ftmabspl.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: 36840 Cc: 36840@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) Hello, P skribis: > commit: 767a0a18d88479c713f1b9b034bd06eedfe71a80 (or rather the previous = commit, there are some small unrelated changes in gnu/packages/idris.scm) > > make check TESTS=3D"tests/swh.scm tests/pypi.scm tests/gem.scm tests/crat= e.scm tests/cpan.scm" SCM_LOG_DRIVER_FLAGS=3D"--brief=3Dno" > > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D > GNU Guix 1.0.1.1832-23243: ./test-suite.log > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D > > # TOTAL: 21 > # PASS: 12 > # SKIP: 1 > # XFAIL: 0 > # FAIL: 8 > # XPASS: 0 > # ERROR: 0 The likely reason is that you=E2=80=99re using Guile-JSON 1.x instead of 3.= x, which is now required. If you=E2=80=99re using =E2=80=98guix environment=E2=80=99, you may need to= run: guix environment guix --ad-hoc guile-json@3 HTH! Ludo=E2=80=99. From debbugs-submit-bounces@debbugs.gnu.org Fri Aug 23 08:48:12 2019 Received: (at control) by debbugs.gnu.org; 23 Aug 2019 12:48:12 +0000 Received: from localhost ([127.0.0.1]:39269 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1i18zD-00044h-Sz for submit@debbugs.gnu.org; Fri, 23 Aug 2019 08:48:12 -0400 Received: from eggs.gnu.org ([209.51.188.92]:53736) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1i18zC-00044P-3X for control@debbugs.gnu.org; Fri, 23 Aug 2019 08:48:10 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:42030) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1i18z5-0003up-Tn for control@debbugs.gnu.org; Fri, 23 Aug 2019 08:48:03 -0400 Received: from [2001:660:6102:320:e120:2c8f:8909:cdfe] (port=48638 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1i18z5-0003UH-BC for control@debbugs.gnu.org; Fri, 23 Aug 2019 08:48:03 -0400 Date: Fri, 23 Aug 2019 14:48:00 +0200 Message-Id: <87h8686oan.fsf@gnu.org> To: control@debbugs.gnu.org From: =?utf-8?Q?Ludovic_Court=C3=A8s?= Subject: control message for bug #36840 MIME-version: 1.0 Content-type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) tags 36840 notabug close 36840 quit From unknown Mon Jun 23 04:12:18 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Sat, 21 Sep 2019 11:24:05 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator