diff mbox series

[bug#67963,v2,03/37] Fix broken test in Perl's DBIx::Class.

Message ID 2d1f6a29a8cd2de5c3194bc1e2904d503721f875.1705443194.git.felix.lechner@lease-up.com
State New
Headers show
Series [bug#67963,v2,01/37] gnu: perl.scm: Fix indentation (no functional changes). | expand

Commit Message

Felix Lechner Jan. 16, 2024, 10:12 p.m. UTC 
Fixes this test:

  ;; #   Failed test 'Unexpected require of 'MRO::Compat' by
  ;; DBIx::Class::Componentised
  ;; (/tmp/guix-build-perl-dbix-class-0.082842.drv-0/DBIx-Class-0.082842/blib/li
  ;; b/DBIx/Class/Componentised.pm line 7)'
  ;; #   at t/53lean_startup.t line 58.
  ;; # Looks like you failed 1 test of 7.
  ;; t/53lean_startup.t ..................................
  ;; Dubious, test returned 1 (wstat 256, 0x100)
  ;; Failed 1/7 subtests

Change-Id: Ifdcb33a247bd5f57e18ee83650d9918d8b45c321
---
 gnu/packages/databases.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
diff mbox series

Patch

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index b5077583c3..1f4e6be631 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -1946,6 +1946,24 @@  (define-public perl-dbix-class
        (sha256
         (base32 "1rh7idjjbibc1zmiaaarask434lh0lx7f2xyfwmy37k9fa0xcpmh"))))
     (build-system perl-build-system)
+    (arguments
+     (list
+      #:phases
+      ;; #   Failed test 'Unexpected require of 'MRO::Compat' by
+      ;; DBIx::Class::Componentised
+      ;; (/tmp/guix-build-perl-dbix-class-0.082842.drv-0/DBIx-Class-0.082842/blib/li
+      ;; b/DBIx/Class/Componentised.pm line 7)'
+      ;; #   at t/53lean_startup.t line 58.
+      ;; # Looks like you failed 1 test of 7.
+      ;; t/53lean_startup.t ..................................
+      ;; Dubious, test returned 1 (wstat 256, 0x100)
+      ;; Failed 1/7 subtests
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'fix-test
+            (lambda _
+              (substitute* "t/53lean_startup.t"
+                (("    mro\n")
+                 "    mro\n    MRO::Compat\n")))))))
     (native-inputs
      (list perl-dbd-sqlite
            perl-file-temp