script/t/name.t

#!/usr/bin/perl
use strict;
use SuikaWiki::Name;
use Test;

plan tests => 25;

my $name = SuikaWiki::Name->new ([qw/A B C D E F/]);
ok $name->stringify (delimiter => q(//)), q(A//B//C//D//E//F);

$name = SuikaWiki::Name->new (bless [qw/A B C 0 1 2/], 'SomeModule');
ok $name->stringify (delimiter => q(!)), q(A!B!C!0!1!2);

$name = SuikaWiki::Name->new (bless {a => [qw/_ _ _/]}, 'SomeOtherModule');
ok $name->stringify (delimiter => q(@)), q(_@_@_);

$name = SuikaWiki::Name->new ('A//B//C', delimiter_reg => qr#//#);
ok $name->stringify (delimiter => q(/)), q(A/B/C);

$name = SuikaWiki::Name->new ('A B C D', wiki => {config => {name => {space => {separator_reg => qr#\s#}}}});
ok $name->stringify (wiki => {config => {name => {space => {separator => q( - )}}}}), q(A - B - C - D);

$name->append_component ('a');
ok $name->stringify (delimiter => '_'), 'A_B_C_D_a';

$name->append_component ([qw/b c/]);
ok $name->stringify (delimiter => '_'), 'A_B_C_D_a_b_c';

$name->prepend_component ('1');
ok $name->stringify (delimiter => '_'), '1_A_B_C_D_a_b_c';

$name->prepend_component ([qw/2 3/]);
ok $name->stringify (delimiter => '_'), '2_3_1_A_B_C_D_a_b_c';


$name = SuikaWiki::Name->new ([qw/.. 1 2/]);
ok $name->absolute (self => '.', parent => '..', base => [qw/5 6/])
        ->stringify (delimiter => ' '),
   '5 1 2';

$name = SuikaWiki::Name->new ([qw/.. .. 1 2/]);
ok $name->absolute (self => '.', parent => '..', base => [qw/5 6/])
        ->stringify (delimiter => ' '),
   '1 2';

$name = SuikaWiki::Name->new ([qw/1 2/]);
ok $name->absolute (self => '.', parent => '..', base => [qw/5 6/])
        ->stringify (delimiter => ' '),
   '1 2';

$name = SuikaWiki::Name->new ([qw/. 1 2/]);
ok $name->absolute (self => '.', parent => '..', base => [qw/5 6/])
        ->stringify (delimiter => ' '),
   '5 6 1 2';

$name = SuikaWiki::Name->new ([qw/. . . 1 2/]);
ok $name->absolute (self => '.', parent => '..', base => [qw/5 6/])
        ->stringify (delimiter => ' '),
   '5 6 1 2';

## Root namespace

$name = SuikaWiki::Name->new ([]);
ok $name->stringify (root => '\\'), '\\';

$name = SuikaWiki::Name->new ([]);
ok $name->stringify (wiki => {config => {name => {space => {root => '/'}}}}),
   '/';

$name = SuikaWiki::Name->new ('/', root => '/');
ok $name->stringify (root => '\\'), '\\';

$name = SuikaWiki::Name->new ('/', wiki => {config => {name => {space => {root => '/'}}}});
ok $name->stringify (root => '\\'), '\\';

$name = SuikaWiki::Name->new ('', root => '/', delimiter => ':');
ok $name->stringify (root => '\\', delimiter => '/'), '\\';

$name = SuikaWiki::Name->new ([]);
ok $name->absolute (self => '.', parent => '..', base => [qw/5 6/])
        ->stringify (delimiter => ' ', root => '/'),
   '/';

$name = SuikaWiki::Name->new ([]);
ok $name->absolute (self => '.', parent => '..', base => [])
        ->stringify (delimiter => ' ', root => '/'),
   '/';

$name = SuikaWiki::Name->new ([qw/. . a/]);
ok $name->absolute (self => '.', parent => '..', base => [])
        ->stringify (delimiter => ' ', root => '/'),
   'a';

$name = SuikaWiki::Name->new ([qw/.. .. a/]);
ok $name->absolute (self => '.', parent => '..', base => [])
        ->stringify (delimiter => ' ', root => '/'),
   'a';

$name = SuikaWiki::Name->new ([qw/a/]);
ok $name->absolute (self => '.', parent => '..', base => [])
        ->stringify (delimiter => ' ', root => '/'),
   'a';

$name = SuikaWiki::Name->new ([qw/a b/]);
ok $name->absolute (self => '.', parent => '..', base => [])
        ->stringify (delimiter => ' ', root => '/'),
   'a b';

package SomeOtherModule;
use overload '@{}' => sub {shift->{a}};
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3			use SuikaWiki::Name;
4			use Test;
5
6	wakaba	1.2	plan tests => 25;
7	wakaba	1.1
8			my $name = SuikaWiki::Name->new ([qw/A B C D E F/]);
9			ok $name->stringify (delimiter => q(//)), q(A//B//C//D//E//F);
10
11			$name = SuikaWiki::Name->new (bless [qw/A B C 0 1 2/], 'SomeModule');
12			ok $name->stringify (delimiter => q(!)), q(A!B!C!0!1!2);
13
14			$name = SuikaWiki::Name->new (bless {a => [qw/_ _ _/]}, 'SomeOtherModule');
15			ok $name->stringify (delimiter => q(@)), q(_@_@_);
16
17			$name = SuikaWiki::Name->new ('A//B//C', delimiter_reg => qr#//#);
18			ok $name->stringify (delimiter => q(/)), q(A/B/C);
19
20			$name = SuikaWiki::Name->new ('A B C D', wiki => {config => {name => {space => {separator_reg => qr#\s#}}}});
21			ok $name->stringify (wiki => {config => {name => {space => {separator => q( - )}}}}), q(A - B - C - D);
22
23			$name->append_component ('a');
24			ok $name->stringify (delimiter => '_'), 'A_B_C_D_a';
25
26			$name->append_component ([qw/b c/]);
27			ok $name->stringify (delimiter => '_'), 'A_B_C_D_a_b_c';
28
29			$name->prepend_component ('1');
30			ok $name->stringify (delimiter => '_'), '1_A_B_C_D_a_b_c';
31
32			$name->prepend_component ([qw/2 3/]);
33			ok $name->stringify (delimiter => '_'), '2_3_1_A_B_C_D_a_b_c';
34
35
36			$name = SuikaWiki::Name->new ([qw/.. 1 2/]);
37			ok $name->absolute (self => '.', parent => '..', base => [qw/5 6/])
38			->stringify (delimiter => ' '),
39			'5 1 2';
40
41			$name = SuikaWiki::Name->new ([qw/.. .. 1 2/]);
42			ok $name->absolute (self => '.', parent => '..', base => [qw/5 6/])
43			->stringify (delimiter => ' '),
44			'1 2';
45
46			$name = SuikaWiki::Name->new ([qw/1 2/]);
47			ok $name->absolute (self => '.', parent => '..', base => [qw/5 6/])
48			->stringify (delimiter => ' '),
49			'1 2';
50
51			$name = SuikaWiki::Name->new ([qw/. 1 2/]);
52			ok $name->absolute (self => '.', parent => '..', base => [qw/5 6/])
53			->stringify (delimiter => ' '),
54			'5 6 1 2';
55
56			$name = SuikaWiki::Name->new ([qw/. . . 1 2/]);
57			ok $name->absolute (self => '.', parent => '..', base => [qw/5 6/])
58			->stringify (delimiter => ' '),
59			'5 6 1 2';
60	wakaba	1.2
61			## Root namespace
62
63			$name = SuikaWiki::Name->new ([]);
64			ok $name->stringify (root => '\\'), '\\';
65
66			$name = SuikaWiki::Name->new ([]);
67			ok $name->stringify (wiki => {config => {name => {space => {root => '/'}}}}),
68			'/';
69
70			$name = SuikaWiki::Name->new ('/', root => '/');
71			ok $name->stringify (root => '\\'), '\\';
72
73			$name = SuikaWiki::Name->new ('/', wiki => {config => {name => {space => {root => '/'}}}});
74			ok $name->stringify (root => '\\'), '\\';
75
76			$name = SuikaWiki::Name->new ('', root => '/', delimiter => ':');
77			ok $name->stringify (root => '\\', delimiter => '/'), '\\';
78
79			$name = SuikaWiki::Name->new ([]);
80			ok $name->absolute (self => '.', parent => '..', base => [qw/5 6/])
81			->stringify (delimiter => ' ', root => '/'),
82			'/';
83
84			$name = SuikaWiki::Name->new ([]);
85			ok $name->absolute (self => '.', parent => '..', base => [])
86			->stringify (delimiter => ' ', root => '/'),
87			'/';
88
89			$name = SuikaWiki::Name->new ([qw/. . a/]);
90			ok $name->absolute (self => '.', parent => '..', base => [])
91			->stringify (delimiter => ' ', root => '/'),
92			'a';
93
94			$name = SuikaWiki::Name->new ([qw/.. .. a/]);
95			ok $name->absolute (self => '.', parent => '..', base => [])
96			->stringify (delimiter => ' ', root => '/'),
97			'a';
98
99			$name = SuikaWiki::Name->new ([qw/a/]);
100			ok $name->absolute (self => '.', parent => '..', base => [])
101			->stringify (delimiter => ' ', root => '/'),
102			'a';
103
104			$name = SuikaWiki::Name->new ([qw/a b/]);
105			ok $name->absolute (self => '.', parent => '..', base => [])
106			->stringify (delimiter => ' ', root => '/'),
107			'a b';
108	wakaba	1.1
109			package SomeOtherModule;
110			use overload '@{}' => sub {shift->{a}};