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;