#!/usr/bin/perl -w

use strict;
use Test::Simple tests => 2;

use SVG::Metadata;

my $svgmeta = new SVG::Metadata();

$svgmeta->addKeyword('foo');
$svgmeta->addKeyword('bar','baz');

# Validate text output
my $text = qq(Title:\\s*
Author:\\s*
License:\\s*
Keywords:\\s*bar
\\s*baz
\\s*foo);
ok( $svgmeta->to_text() =~ m|$text|m);

print $text;

print $svgmeta->to_text();

# Validate rdf output
my $rdf = qq(
\\s*<dc:subject>
\\s*<rdf:Bag>
\\s*<rdf:li>bar</rdf:li>
\\s*<rdf:li>baz</rdf:li>
\\s*<rdf:li>foo</rdf:li>
\\s*</rdf:Bag>
\\s*</dc:subject>);
ok( $svgmeta->to_rdf() =~ m/$rdf/m);