use strict;
use warnings;
use Test::More tests => 4; # last test to print
use lib 't/lib';
use Catalyst::Test 'TestApp';
my $xml = request('/sitemap')->content;
diag $xml;
$xml =~ s/\s+//g;
like $xml, qr{http://localhost/root/alone}, ':Sitemap';
like $xml, qr{http://localhost/root/with_function},
':Sitemap(*)';
like $xml,
qr{http://localhost/root/with_priority0.75},
':Sitemap(0.75)';
like $xml,
qr{http://localhost/root/with_args2010-09-27daily},
':Sitemap(lotsa stuff)';