Make DosGlob.t more resilient

[perl5.git] / ext / File-DosGlob / t / DosGlob.t

diff --git a/ext/File-DosGlob/t/DosGlob.t b/ext/File-DosGlob/t/DosGlob.t
index b3302b8..600b87a 100644 (file)
--- a/ext/File-DosGlob/t/DosGlob.t
+++ b/ext/File-DosGlob/t/DosGlob.t
@@ -10,7 +10,7 @@ use File::DosGlob;
 use FindBin;
 use File::Spec::Functions;
 BEGIN {
 use FindBin;
 use File::Spec::Functions;
 BEGIN {

-    chdir catfile $FindBin::Bin, (updir)x3, 't';
+    chdir catdir $FindBin::Bin, (updir)x3, 't';

     @INC = '../lib';
 }
 
     @INC = '../lib';
 }
 


@@ -147,9 +147,10 @@ SKIP: {
     # Use a random number of ops, so that the glob op does not reuse the
     # same address each time, giving us false passes.
     my($count,$count2);
     # Use a random number of ops, so that the glob op does not reuse the
     # same address each time, giving us false passes.
     my($count,$count2);

-    eval '$x+'x(rand() * 100) . '<*>';
+    eval '$x+'x(1+rand() * 100) . '<*>';

     $count = sv_count();
     $count = sv_count();

-    eval '$x+'x(rand() * 100) . '<*>';
+    eval '$x+'x(1+rand() * 100) . '<*>';

     $count2 = sv_count();
     $count2 = sv_count();

-    is $count2, $count, 'no leak when partly iterated caller is freed';
+    cmp_ok $count2, '<=', $count,
+     'no leak when partly iterated caller is freed';

 }
 }