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
|
use strict;
use warnings;
use charnames ':full';
use MooseX::Types::Perl -all;
use Test::More;
{
ok(is_LaxVersionStr('1.234'), "1.234 is a lax version string");
my $obj = to_VersionObject('1.234');
is($obj->stringify, '1.234', "we can coerce and restring a LaxVersionStr");
}
{
my $bad = "Queensr\N{LATIN SMALL LETTER Y WITH DIAERESIS}che";
ok( ! is_DistName($bad), 'Queensryche (with diaeresis) <> dist name');
ok( ! is_PackageName($bad), 'Queensryche (with diaeresis) <> pkg name');
ok( ! is_ModuleName($bad), 'Queensryche (with diaeresis) <> module name');
}
{
ok(is_Identifier('_'), '_ is an identifier');
ok(! is_SafeIdentifier('_'), '_ is not a safe identifier');
}
{
ok(is_DistName('Foo-Bar'), 'Foo-Bar is a dist name');
ok(! is_DistName('Foo::Bar'), 'Foo::Bar is not a dist name');
}
{
ok(! is_PackageName('Foo-Bar'), 'Foo-Bar is not a package name');
ok(is_PackageName('Foo::Bar'), 'Foo::Bar is a package name');
}
done_testing;
|
