[Catalyst-commits] r8363 - in Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates: . lib/Catalyst t

[marcus at dev.catalyst.perl.org]

Author: marcus
Date: 2008-09-08 10:45:27 +0100 (Mon, 08 Sep 2008)
New Revision: 8363

Modified:
   Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates/Changes
   Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates/lib/Catalyst/Test.pm
   Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates/t/catalyst-test.t
Log:
Fixed tests for new test methods

Modified: Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates/Changes
===================================================================
--- Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates/Changes	2008-09-07 13:04:19 UTC (rev 8362)
+++ Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates/Changes	2008-09-08 09:45:27 UTC (rev 8363)
@@ -1,6 +1,6 @@
 # This file documents the revision history for Perl extension Catalyst.
 
-5.8000
+5.8000_01
         - Port to Moose
         - Added test for action stringify
         - Added test for component instances getting $self->{value} from config.
@@ -10,6 +10,8 @@
         - Fix some Win32 test failures
         - Add pt translation of error message (wreis)
         - Make :Chained('../action') work (Florian Ragwitz)
+        - Add test actions
+        - Chained doc improvements (rev 8326-8328)
 
 5.7099_03 2008-07-20 10:10:00
         - Fix regressions for regexp fallback in model(), view() and controller()

Modified: Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates/lib/Catalyst/Test.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates/lib/Catalyst/Test.pm	2008-09-07 13:04:19 UTC (rev 8362)
+++ Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates/lib/Catalyst/Test.pm	2008-09-08 09:45:27 UTC (rev 8363)
@@ -230,7 +230,7 @@
     no strict 'refs';
     my $get=*{"$caller\::get"};
     my $action=shift;
-    return Test::More->builder->like(get($action), at _);
+    return Test::More->builder->like(&$get($action), at _);
 }
 
 sub action_ok {

Modified: Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates/t/catalyst-test.t
===================================================================
--- Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates/t/catalyst-test.t	2008-09-07 13:04:19 UTC (rev 8362)
+++ Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates/t/catalyst-test.t	2008-09-08 09:45:27 UTC (rev 8363)
@@ -4,8 +4,8 @@
 
 use Test::More tests => 5;
 
-content_like('/','foo');
-action_ok('/','Action ok ok');
-action_redirect('/engine/response/redirect/one');
-action_notfound('/engine/response/status/s404');
-contenttype_is('text/plain');
\ No newline at end of file
+content_like('/',qr/root/,'content check');
+action_ok('/','Action ok ok','normal action ok');
+action_redirect('/engine/response/redirect/one','redirect check');
+action_notfound('/engine/response/status/s404','notfound check');
+contenttype_is('/action/local/one','text/plain','Contenttype check');
\ No newline at end of file