File: 40_make-deep-test-less-fragile.patch

package info (click to toggle)
libtest-unit-perl 0.28-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,312 kB
  • sloc: perl: 4,299; makefile: 5
file content (21 lines) | stat: -rw-r--r-- 1,056 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Description: Add more variants to fragile test
 This test was already marked by upstream as "may be fragile due to
 recursion ordering" and it indeed is fragile. Fixes occasional test
 suite failures due to hash randomization.
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=87017
Author: Axel Beckert <abe@debian.org>
Reviewed-by: gregor herrmann <gregoa@debian.org>
Last-Update: 2025-12-07

--- a/t/tlib/AssertTest.pm
+++ b/t/tlib/AssertTest.pm
@@ -495,7 +495,8 @@
                  },
              }
          ],
-         $differ->( 'HASH', 'not exist') => [$families{orig}, $families{bad_copy}], # test may be fragile due to recursion ordering?
+         # test is fragile due to hash randomization
+         $differ->( 'HASH|John\sDoe', 'not\sexist|Baby\sDoll') => [$families{orig}, $families{bad_copy}],
          $differ->("'3'", "'5'") => [ [ \$H, 3 ], [ \$H2, 5 ] ],
          $differ->("'hello'", "'goodbye'") => [ { world => \$H }, { world => \$G } ],
          $differ->("'hello'", "'goodbye'") => [ [ \$H, "world" ], [ \$G, "world" ] ],