File: 05-basics.t

package info (click to toggle)
libxml-commonns-perl 0.06-6
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 116 kB
  • sloc: perl: 67; makefile: 2
file content (13 lines) | stat: -rw-r--r-- 386 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
use Test::More;
use strict;
BEGIN { plan tests => 6 };
use XML::CommonNS qw(SVG XHTML2 RNG);
ok(1);

is( $RNG,    "http://relaxng.org/ns/structure/1.0" );
is( $SVG,    "http://www.w3.org/2000/svg" );
is( $XHTML2, "http://www.w3.org/2002/06/xhtml2" );

is( $SVG->extensionsDef, "{http://www.w3.org/2000/svg}extensionsDef" );

is(XML::CommonNS->uri('FOAF'), 'http://xmlns.com/foaf/0.1/');