blob: 43e90d7508c4dc858d358b91018e1b2602238345 (
plain) (
blame)
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
|
use strict;
use warnings;
use v5.16.0;
use File::Temp 'tempdir';
use File::Spec::Functions;
use Test::More;
BEGIN {
plan skip_all => "Home-grown glob does not do character classes on $^O" if $^O eq 'VMS';
}
plan tests => 1;
my @md = (1..305);
my @mp = (1000..1205);
my $path = tempdir uc cleanup => 1;
my $md = 0;
my $mp = 0;
foreach (@md) {
if (open(my $f, ">", catfile $path, "md_$_.dat")) {
$md++;
close $f;
}
}
foreach (@mp) {
if (open(my $f, ">", catfile $path, "mp_$_.dat")) {
$mp++;
close $f;
}
}
my @b = glob(qq{$path/mp_[0123456789]*.dat $path/md_[0123456789]*.dat});
if ($md+$mp < @md+@mp) {
warn sprintf("$0: expected to create %d files, created only %d (path $path)\n",
@md+@mp, $md+$mp);
}
is scalar(@b), $md+$mp,
'File::Glob extends the stack when returning a long list';
|
