# 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.
- 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()
package Catalyst::Test;
+use Test::More;
+
use strict;
use warnings;
use Catalyst::Utils;
use Class::Inspector;
+use parent qw/Exporter/;
+our @EXPORT=qw/&content_like &action_ok &action_redirect &action_notfound &contenttype_is/;
+
+
=head1 NAME
Catalyst::Test - Test Catalyst Applications
package main;
- use Test::More tests => 1;
use Catalyst::Test 'TestApp';
+ use Test::More tests => 1;
ok( get('/foo') =~ /bar/ );
This module allows you to make requests to a Catalyst application either without
a server, by simulating the environment of an HTTP request using
L<HTTP::Request::AsCGI> or remotely if you define the CATALYST_SERVER
-environment variable.
+environment variable. This module also adds a few catalyst
+specific testing methods as displayed in the method section.
The </get> and </request> functions take either a URI or an L<HTTP::Request>
object.
my $caller = caller(0);
*{"$caller\::request"} = $request;
*{"$caller\::get"} = $get;
+ __PACKAGE__->export_to_level(1);
}
=head2 local_request
return $agent->request($request);
}
+=head2 action_ok
+
+Fetches the given url and check that the request was successful
+
+=head2 action_redirect
+
+Fetches the given url and check that the request was a redirect
+
+=head2 action_notfound
+
+Fetches the given url and check that the request was not found
+
+=head2 content_like
+
+Fetches the given url and matches the content against it.
+
+=head2 contenttype_is
+
+Check for given mime type
+
+=cut
+
+sub content_like {
+ my $caller=caller(0);
+ no strict 'refs';
+ my $get=*{"$caller\::get"};
+ my $action=shift;
+ return Test::More->builder->like(&$get($action),@_);
+}
+
+sub action_ok {
+ my $caller=caller(0);
+ no strict 'refs';
+ my $request=*{"$caller\::request"};
+ my $action=shift;
+ return Test::More->builder->ok(&$request($action)->is_success, @_);
+}
+
+sub action_redirect {
+ my $caller=caller(0);
+ no strict 'refs';
+ my $request=*{"$caller\::request"};
+ my $action=shift;
+ return Test::More->builder->ok(&$request($action)->is_redirect,@_);
+
+}
+
+sub action_notfound {
+ my $caller=caller(0);
+ no strict 'refs';
+ my $request=*{"$caller\::request"};
+ my $action=shift;
+ return Test::More->builder->is_eq(&$request($action)->code,404,@_);
+
+}
+
+
+sub contenttype_is {
+ my $caller=caller(0);
+ no strict 'refs';
+ my $request=*{"$caller\::request"};
+ my $action=shift;
+ my $res=&$request($action);
+ return Test::More->builder->is_eq(scalar($res->content_type),@_);
+}
+
=head1 SEE ALSO
L<Catalyst>, L<Test::WWW::Mechanize::Catalyst>,
--- /dev/null
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use Catalyst::Test 'TestApp';
+
+use Test::More tests => 5;
+
+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