epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Introduce Habitent loin people

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-10-20 02:15:12 +02:00
commit ff9c3a5ad2
5 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ACU/Tinyglob.pm
View file

@ -38,8 +38,12 @@ sub tinyglob
elsif ($str[$i] eq '*') {
$res .= '.*';
}
elsif ($metaescape) {
$res .= $str[$i];
$metaescape = 0;
}
else {
croak "Invalid number of \\ in '$orig'";
$res .= "\\".$str[$i];
}
}
else {
@ -55,6 +59,8 @@ sub match
my $glob = tinyglob(shift);
my $str = shift;
say $glob;
return $str =~ /$glob/;
}

3
ACU/t/tinyglob.t
View file

@ -18,6 +18,9 @@ is(Tinyglob::tinyglob("\\*"), "\\*");
is(Tinyglob::tinyglob("\\\\*"), "\\\\.*");
is(Tinyglob::tinyglob("\\?"), "\\?");
is(Tinyglob::tinyglob("\\\\?"), "\\\\.");
is(Tinyglob::tinyglob("\\."), "\\.");
is(Tinyglob::tinyglob("\\\\."), "\\\\\\.");
is(Tinyglob::tinyglob("a*b?"), "a.*b.");
ok(! Tinyglob::match("?", ""));
ok(! Tinyglob::match("b", "a"));