/[pub]/suikawiki/script/t/name.t
Suika

Diff of /suikawiki/script/t/name.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by wakaba, Sun Feb 8 08:57:53 2004 UTC revision 1.2 by wakaba, Thu Apr 1 04:46:59 2004 UTC
# Line 3  use strict; Line 3  use strict;
3  use SuikaWiki::Name;  use SuikaWiki::Name;
4  use Test;  use Test;
5    
6  plan tests => 9;  plan tests => 25;
7    
8  my $name = SuikaWiki::Name->new ([qw/A B C D E F/]);  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);  ok $name->stringify (delimiter => q(//)), q(A//B//C//D//E//F);
# Line 58  ok $name->absolute (self => '.', parent Line 58  ok $name->absolute (self => '.', parent
58          ->stringify (delimiter => ' '),          ->stringify (delimiter => ' '),
59     '5 6 1 2';     '5 6 1 2';
60    
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    
109  package SomeOtherModule;  package SomeOtherModule;
110  use overload '@{}' => sub {shift->{a}};  use overload '@{}' => sub {shift->{a}};
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24