61 lines
1.5 KiB
Perl
61 lines
1.5 KiB
Perl
use v5.10.1;
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
|
|
use lib "../";
|
|
|
|
BEGIN {
|
|
diag("Testing Tinyglob on perl $]");
|
|
use_ok('ACU::Tinyglob');
|
|
}
|
|
|
|
use ACU::Tinyglob;
|
|
|
|
is(Tinyglob::tinyglob("test"), "test");
|
|
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.");
|
|
is(Tinyglob::tinyglob("a-b"), "a\\-b");
|
|
|
|
ok(! Tinyglob::match("?", ""));
|
|
ok(! Tinyglob::match("b", "a"));
|
|
ok(! Tinyglob::match("b*", "a"));
|
|
ok(! Tinyglob::match("b?", "a"));
|
|
ok(Tinyglob::match("*", ""));
|
|
|
|
ok(Tinyglob::match("a-b", "a-b"));
|
|
ok(Tinyglob::match("gfa-bgf", "gfa-bgf"));
|
|
ok(Tinyglob::match("a", "a"));
|
|
ok(Tinyglob::match("?", "a"));
|
|
ok(Tinyglob::match("*", "a"));
|
|
|
|
ok(Tinyglob::match("ab", "ab"));
|
|
ok(Tinyglob::match("?b", "ab"));
|
|
ok(Tinyglob::match("*b", "ab"));
|
|
ok(Tinyglob::match("*", "ab"));
|
|
|
|
ok(Tinyglob::match("b?", "ba"));
|
|
ok(Tinyglob::match("b*", "ba"));
|
|
ok(Tinyglob::match("*", "abcdef"));
|
|
|
|
ok(Tinyglob::match("a?b", "acb"));
|
|
ok(Tinyglob::match("a*b", "acb"));
|
|
ok(Tinyglob::match("a*b", "acdefb"));
|
|
|
|
ok(Tinyglob::match("a*b*", "acdefblkjgd"));
|
|
ok(! Tinyglob::match("a?b*", "acdefblkjgd"));
|
|
ok(Tinyglob::match("a?b*", "acblkjgd"));
|
|
ok(Tinyglob::match("a?b*", "abblkjgd"));
|
|
#ok(! Tinyglob::match("a*b?", "abblkjgd"));
|
|
ok(Tinyglob::match("a*b?", "aasdasbd"));
|
|
|
|
print "youpi " if ("de-bro_m" =~ /^de\-bro_m$/);
|
|
|
|
done_testing();
|