diff -ur Crypt-Random-1.54/t/makerandom_itv.t Crypt-Random-1.52/t/makerandom_itv.t
--- Crypt-Random-1.54/t/makerandom_itv.t	2021-06-03 15:11:56.000000000 -0300
+++ Crypt-Random-1.52/t/makerandom_itv.t	2018-12-22 14:49:20.000000000 -0400
@@ -9,18 +9,13 @@
 use lib '../lib';
 use Crypt::Random qw(makerandom_itv);
 
-print "1..6\n";
+print "1..5\n";
 my $sample = 100;
 my $i = 1;
 
-for my $limit ( '10', '1000', '10000', '100000', '1000000000', '1000000000000' ) { 
-    my $success = 1;
+for my $limit ( '1000', '10000', '100000', '1000000000', '1000000000000' ) { 
     for ( 1 .. $sample ) { 
-        my $num = makerandom_itv ( Lower=>0, Upper=>$limit, Uniform => 1 );
-        print "generated random in interval 0 - $limit -> $num\n";
-        unless ($num >= 0 and $num < $limit) {
-            $success = 0;
-        }
+        print makerandom_itv ( Lower=>0, Upper=>$limit, Uniform => 1 ) . "\n";
     }
-    print "ok ". $i++."\n" if $success;
+    print "ok ". $i++."\n";
 }