[Catalyst-commits] r10543 - in Catalyst-Devel/1.00/branches/helper_refactor: share/t t

dhoss at dev.catalyst.perl.org dhoss at dev.catalyst.perl.org
Mon Jun 15 21:52:28 GMT 2009


Author: dhoss
Date: 2009-06-15 21:52:27 +0000 (Mon, 15 Jun 2009)
New Revision: 10543

Modified:
   Catalyst-Devel/1.00/branches/helper_refactor/share/t/apptest.tt
   Catalyst-Devel/1.00/branches/helper_refactor/t/check_testapp_the_same.t
Log:
fixed apptest.tt per #PXVL (hiveminder)
removed stupid SKIP line in check_testapp_the_same (not needed)


Modified: Catalyst-Devel/1.00/branches/helper_refactor/share/t/apptest.tt
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor/share/t/apptest.tt	2009-06-15 19:04:33 UTC (rev 10542)
+++ Catalyst-Devel/1.00/branches/helper_refactor/share/t/apptest.tt	2009-06-15 21:52:27 UTC (rev 10543)
@@ -4,5 +4,5 @@
 use Test::More tests => 2;
 
 BEGIN { use_ok 'Catalyst::Test', '[% name %]' }
-
-ok( request('/')->is_success, 'Request should succeed' );
+my $req = request('/');
+ok( $req->is_success, "Request succeeds");

Modified: Catalyst-Devel/1.00/branches/helper_refactor/t/check_testapp_the_same.t
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor/t/check_testapp_the_same.t	2009-06-15 19:04:33 UTC (rev 10542)
+++ Catalyst-Devel/1.00/branches/helper_refactor/t/check_testapp_the_same.t	2009-06-15 21:52:27 UTC (rev 10543)
@@ -15,15 +15,11 @@
 ## create a new test app to compare to
 is system("cd $Bin/../; $^X -I$Bin/../lib $cat TestAppForComparison"), 0 or BAIL_OUT;
 
-SKIP: {
- 
-    my $diff;
-    eval {
-        $diff = `diff -urNB -x .svn -x Changes $Bin/TestAppForComparison $Bin/../TestAppForComparison`;
-    };
+my $diff;
+eval {
+    $diff = `diff -urNB -x .svn -x Changes $Bin/TestAppForComparison $Bin/../TestAppForComparison`;
+};
     
-    skip "no diff program installed, skipping", 1 if $@;
-    
-    ok !length($diff), 'Generated same TestApp', or warn($diff);
-    
-}
+skip "no diff program installed, skipping", 1 if $@;
+  
+ok !length($diff), 'Generated same TestApp', or warn($diff);




More information about the Catalyst-commits mailing list