File: 05-basics.t

package info (click to toggle)
libxml-namespacefactory-perl 1.02-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 112 kB
  • sloc: perl: 42; makefile: 2
file content (17 lines) | stat: -rw-r--r-- 335 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

use Test;
BEGIN { plan tests => 8 };
use XML::NamespaceFactory;
ok(1); 

my $ns = "http://foo.org/ns/";
my $FOO = XML::NamespaceFactory->new($ns);
ok(1);

ok( $ns eq "$FOO" );
ok( $ns eq $FOO );
ok( "hahaha" ne "$FOO" );
ok( "hahaha" ne $FOO );

ok( $FOO->title eq "{$ns}title" );
ok( $FOO->{'bar.baz-toto'} eq "{$ns}bar.baz-toto" );