4229c6b780dca85cbc74156f3658e018ded1a4fe
[perl.git] / ext / File-Glob / t / rt114984.t
1 use strict;
2 use warnings;
3 use v5.16.0;
4 use File::Temp 'tempdir';
5 use File::Spec::Functions;
6 use Test::More tests => 1;
7
8 my @md = (1..305);
9 my @mp = (1000..1205);
10
11 my $path = tempdir uc cleanup => 1;
12
13 foreach (@md) {
14     open(my $f, ">", catfile $path, "md_$_.dat");
15     close $f;
16 }
17
18 foreach (@mp) {
19     open(my $f, ">", catfile $path, "mp_$_.dat");
20     close $f;
21 }
22 my @b = glob(qq{$path/mp_[0123456789]*.dat
23                 $path/md_[0123456789]*.dat});
24 is scalar(@b), @md+@mp,
25     'File::Glob extends the stack when returning a long list';