manakai/t/util-qname-general.t

#!/usr/bin/perl -w 
use strict;
use Test;

use Message::Util::QName::General
  [qw/ExpandedURI/],
  {
    xhtml1 => q<http://www.w3.org/1999/xhtml>,
    About  => q<about:>,
    '#default' => q<http://default.example/>,
    '' => q<data:,>,
  };

plan tests => 5;

ok ExpandedURI q<About:blank>, q<about:blank>;

ok ExpandedURI q<xhtml1:class>,
   q<http://www.w3.org/1999/xhtmlclass>;

ok ExpandedURI q<foo>, q<foo>;
ok ExpandedURI q<:foo>, q<data:,foo>;
ok ExpandedURI q<About:>, q<about:>;

1	wakaba	1.1	#!/usr/bin/perl -w
2			use strict;
3			use Test;
4
5			use Message::Util::QName::General
6	wakaba	1.2	[qw/ExpandedURI/],
7	wakaba	1.1	{
8			xhtml1 => q<http://www.w3.org/1999/xhtml>,
9	wakaba	1.2	About => q<about:>,
10			'#default' => q<http://default.example/>,
11			'' => q<data:,>,
12	wakaba	1.1	};
13
14			plan tests => 5;
15
16	wakaba	1.2	ok ExpandedURI q<About:blank>, q<about:blank>;
17	wakaba	1.1
18	wakaba	1.2	ok ExpandedURI q<xhtml1:class>,
19			q<http://www.w3.org/1999/xhtmlclass>;
20	wakaba	1.1
21	wakaba	1.2	ok ExpandedURI q<foo>, q<foo>;
22	wakaba	1.1	ok ExpandedURI q<:foo>, q<data:,foo>;
23	wakaba	1.2	ok ExpandedURI q<About:>, q<about:>;
24	wakaba	1.1