Dogcows Code - chaz/p5-Catalyst-Plugin-Sitemap/blob - t/sitemap.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 4;    # last test to print
   6
   7 use lib 't/lib';
   8 use Catalyst::Test 'TestApp';
   9
  10 my $xml = get('/sitemap');
  11
  12 note $xml;
  13
  14 $xml =~ s/\s+//g;
  15
  16 like $xml, qr{<url><loc>http://localhost/root/alone</loc></url>}, ':Sitemap';
  17 like $xml, qr{<url><loc>http://localhost/root/with_function</loc></url>},
  18   ':Sitemap(*)';
  19 like $xml,
  20   qr{<url><loc>http://localhost/root/with_priority</loc><priority>0.75</priority></url>},
  21   ':Sitemap(0.75)';
  22
  23 like $xml,
  24   qr{<url><loc>http://localhost/root/with_args</loc><lastmod>2010-09-27</lastmod><changefreq>daily</changefreq></url>},
  25   ':Sitemap(lotsa stuff)';
  26