manakai/t/util-qname-general.t

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

use Message::Markup::XML::QName qw(DEFAULT_PFX EMPTY_PFX);
use Message::Util::QName::General
  [qw/ExpandedName ExpandedURI/],
  {
    xhtml1 => q<http://www.w3.org/1999/xhtml>,
    about  => q<about:>,
    (DEFAULT_PFX) => q<http://default.example/>,
    (EMPTY_PFX) => q<data:,>,
  };

plan tests => 5;

ok scalar ExpandedName q<about:blank>, q<about:blank>;

ok join ("\t", ExpandedName q<xhtml1:class>),
   join ("\t", q<http://www.w3.org/1999/xhtml>, q<class>);

ok scalar ExpandedName q<foo>, q<http://default.example/foo>;

ok ExpandedURI q<:foo>, q<data:,foo>;
ok ExpandedURI q<foo>, q<http://default.example/foo>;

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