[Catalyst-commits] r12380 - in trunk/examples/CatalystAdvent: . t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-12-15 01:28:18 +0000 (Tue, 15 Dec 2009)
New Revision: 12380

Modified:
   trunk/examples/CatalystAdvent/Makefile.PL
   trunk/examples/CatalystAdvent/t/01app.t
Log:
Trivial test that all the uris actually work

Modified: trunk/examples/CatalystAdvent/Makefile.PL
===================================================================
--- trunk/examples/CatalystAdvent/Makefile.PL	2009-12-15 01:28:08 UTC (rev 12379)
+++ trunk/examples/CatalystAdvent/Makefile.PL	2009-12-15 01:28:18 UTC (rev 12380)
@@ -21,10 +21,12 @@
 requires 'HTTP::Date';
 requires 'List::Util';
 
-catalyst_files();
+test_requires 'Test::More' => '0.88';
 
+catalyst;
+
 install_script( glob('script/*.pl') );
 auto_install();
 resources repository => 'http://dev.catalyst.perl.org/repos/Catalyst/trunk/examples/CatalystAdvent/';
 
-&WriteAll;
+WriteAll;

Modified: trunk/examples/CatalystAdvent/t/01app.t
===================================================================
--- trunk/examples/CatalystAdvent/t/01app.t	2009-12-15 01:28:08 UTC (rev 12379)
+++ trunk/examples/CatalystAdvent/t/01app.t	2009-12-15 01:28:18 UTC (rev 12380)
@@ -1,4 +1,11 @@
-use Test::More tests => 2;
+use Test::More;
 BEGIN { use_ok( Catalyst::Test, 'CatalystAdvent' ); }
 
 ok( request('/')->is_success );
+ok( request('/2008')->is_success );
+ok( request('/2008/02')->is_success );
+
+ok( request('/rss')->is_success );
+ok( request('/feed')->is_success );
+
+done_testing;