/[suikacvs]/messaging/manakai/t/util-qname-general.t
Suika

Diff of /messaging/manakai/t/util-qname-general.t

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

revision 1.1.2.1 by wakaba, Sun Feb 22 01:47:35 2004 UTC revision 1.2 by wakaba, Sat Nov 20 11:12:50 2004 UTC
# Line 2  Line 2 
2  use strict;  use strict;
3  use Test;  use Test;
4    
 use Message::Markup::XML::QName qw(DEFAULT_PFX EMPTY_PFX);  
5  use Message::Util::QName::General  use Message::Util::QName::General
6    [qw/ExpandedName ExpandedURI/],    [qw/ExpandedURI/],
7    {    {
8      xhtml1 => q<http://www.w3.org/1999/xhtml>,      xhtml1 => q<http://www.w3.org/1999/xhtml>,
9      about  => q<about:>,      About  => q<about:>,
10      (DEFAULT_PFX) => q<http://default.example/>,      '#default' => q<http://default.example/>,
11      (EMPTY_PFX) => q<data:,>,      '' => q<data:,>,
12    };    };
13    
14  plan tests => 5;  plan tests => 5;
15    
16  ok scalar ExpandedName q<about:blank>, q<about:blank>;  ok ExpandedURI q<About:blank>, q<about:blank>;
17    
18  ok join ("\t", ExpandedName q<xhtml1:class>),  ok ExpandedURI q<xhtml1:class>,
19     join ("\t", q<http://www.w3.org/1999/xhtml>, q<class>);     q<http://www.w3.org/1999/xhtmlclass>;
   
 ok scalar ExpandedName q<foo>, q<http://default.example/foo>;  
20    
21    ok ExpandedURI q<foo>, q<foo>;
22  ok ExpandedURI q<:foo>, q<data:,foo>;  ok ExpandedURI q<:foo>, q<data:,foo>;
23  ok ExpandedURI q<foo>, q<http://default.example/foo>;  ok ExpandedURI q<About:>, q<about:>;
24    
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24