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

# test: style

my $svg  = new SVG;
my $defs = $svg->defs();
my $out;

$out = $svg->xmlify();

print("Failed on xlink definition in svg: 1") and exit(0)
  unless $out =~ /xmlns:xlink=\"http:\/\/www.w3.org\/1999\/xlink"/;

print("Failed on xmlns definition in svg: 2") and exit(0)
  unless $out =~ /xmlns=\"http:\/\/www.w3.org\/2000\/svg"/;

exit 1;