1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
From 8696b6e6d85c0790557ad8890e46f3dce88621c9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bastien=20Roucari=C3=A8s?= <rouca@debian.org>
Date: Mon, 2 Jul 2018 18:13:36 +0200
Subject: Fix test suite
author: Mario Roy <marioroy@gmail.com>
Fix test suite due to hash randomization in newer perl
bug: https://rt.cpan.org/Public/Bug/Display.html?id=81449
---
t/101_basic.t | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/t/101_basic.t b/t/101_basic.t
index 3097aa0..b2b22ac 100644
--- a/t/101_basic.t
+++ b/t/101_basic.t
@@ -39,20 +39,17 @@ ok(join(',', keys %h), 'foo,bar,zoo,baz');
ok(exists $h{foo});
ok(exists $h{bar});
ok(!exists $h{xxx});
-$s = &scalar_h;
-skip($scalar, $s =~ /^(\d+)\/\d+$/ && $1 == scalar keys %h);
+ok(scalar keys %h, 4);
$h{xxx} = 5;
ok(join(',', keys %h), 'foo,bar,zoo,baz,xxx');
ok(exists $h{xxx});
-$s = &scalar_h;
-skip($scalar, $s =~ /^(\d+)\/\d+$/ && $1 == scalar keys %h);
+ok(scalar keys %h, 5);
$h{foo} = 6;
ok(join(',', keys %h), 'foo,bar,zoo,baz,xxx');
ok(exists $h{foo});
-$s = &scalar_h;
-skip($scalar, $s =~ /^(\d+)\/\d+$/ && $1 == scalar keys %h);
+ok(scalar keys %h, 5);
while (my($k,$v) = each %h) {
$key .= $k;
|
