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