@@ -1,8 +1,8 @@ <!DOCTYPE HTML> [%- USE HTML -%] -<html lang=en> +<html lang="en"> <head> -<meta charset=utf-8> +<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>CPANHQ[% IF title; " - $title"; END %]</title> <link type="text/css" rel=stylesheet href="[% c.uri_for( '/static/css/cpanhq.css' ) %]"> <!-- Prevent the hot-linking as well as the fact these header elements appear root/wrapper.tt @@ -1,7 +1,7 @@ #!/usr/bin/perl use strict; use warnings; -use Test::More tests => 2; +use Test::More tests => 3; use Test::WWW::Mechanize::Catalyst 'CPANHQ'; @@ -9,7 +9,10 @@ use Test::WWW::Mechanize::Catalyst 'CPANHQ'; my $mech = Test::WWW::Mechanize::Catalyst->new; # TEST - $mech->get_ok("http://localhost/recent"); + $mech->get_ok("http://localhost/recent", "Getting the /recent link"); + + # TEST + $mech->html_lint_ok("/recent validates."); # TEST $mech->follow_link_ok( @@ -18,6 +21,7 @@ use Test::WWW::Mechanize::Catalyst 'CPANHQ'; }, "Following a link to the release works." ); + } =head1 AUTHOR t/controller_Recent_mech.t @@ -18,9 +18,9 @@ if (defined($content)) { open my $html_fh, ">", "./root/static/tweets.html-portion"; print {$html_fh} <<'EOF'; - <div id=sidebar> + <div id="sidebar"> <h2>CPANHQ Updates</h2> -<ul id=tweets> +<ul id="tweets"> EOF foreach my $tweet (@{$tweets->{'items'}}) tmp/gen-twitter-feed.pl 9c7370ab7cc09b45c1eaf1110f08ff435afb2cff Shlomi Fish shlomif@iglu.org.il http://github.com/shlomif/cpanhq/commit/787105af050d9918e8c4da759beb55648e25c078 787105af050d9918e8c4da759beb55648e25c078

2009-07-23T08:21:00-07:00

Got the /recent page to validate. dae1552a018e15d83cf255c4484fc0373c3dffab Shlomi Fish shlomif@iglu.org.il