Fixed tests for new test methods

diff --git a/Changes b/Changes
index 205b601..d898cec 100644 (file)
--- a/Changes
+++ b/Changes
@@ -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()

diff --git a/lib/Catalyst/Test.pm b/lib/Catalyst/Test.pm
index ba10ffc..7c3022a 100644 (file)
--- a/lib/Catalyst/Test.pm
+++ b/lib/Catalyst/Test.pm
@@ -230,7 +230,7 @@ sub content_like {
     no strict 'refs';
     my $get=*{"$caller\::get"};
     my $action=shift;
-    return Test::More->builder->like(get($action),@_);
+    return Test::More->builder->like(&$get($action),@_);
 }
 
 sub action_ok {

diff --git a/t/catalyst-test.t b/t/catalyst-test.t
index ef88b4d..6f1bacc 100644 (file)
--- a/t/catalyst-test.t
+++ b/t/catalyst-test.t
@@ -4,8 +4,8 @@ use Catalyst::Test 'TestApp';
 
 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