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
   9 use Catalyst::Test 'TestApp';
  10
  11 my $xml = request('/sitemap')->content;
  12
  13 $xml =~ s/\s+//g;
  14
  15 like $xml, qr{<url><loc>http://localhost/alone</loc></url>}, ':Sitemap';
  16 like $xml, qr{<url><loc>http://localhost/with_function</loc></url>},
  17   ':Sitemap(*)';
  18 like $xml,
  19   qr{<url><loc>http://localhost/with_priority</loc><priority>0.75</priority></url>},
  20   ':Sitemap(0.75)';
  21
  22 like $xml,
  23   qr{<url><loc>http://localhost/with_args</loc><lastmod>2010-09-27</lastmod><changefreq>daily</changefreq></url>},
  24   ':Sitemap(lotsa stuff)';
  25