1 package Catalyst::Test;
4 use UNIVERSAL::require;
12 Catalyst::Test - Test Catalyst applications
20 use Catalyst::Test 'TestApp';
21 request('index.html');
25 perl -MCatalyst::Test=MyApp -e1 index.html
29 Test Catalyst applications.
37 my $content = get('foo/bar?test=1');
41 Returns a C<HTTP::Response> object.
43 my $res =request('foo/bar?test=1');
50 if ( ( caller(0) )[1] eq '-e' ) {
51 print request( $ARGV[0] || 'http://localhost' )->content;
58 if ( $class = shift ) {
60 unless ( $INC{'Test/Builder.pm'} ) {
61 die qq/Couldn't load "$class", "$@"/ if $@;
66 unless ( $class->engine->isa('Catalyst::Engine::Test') ) {
67 require Catalyst::Engine::Test;
68 splice( @{"$class\::ISA"}, @{"$class\::ISA"} - 1,
69 0, 'Catalyst::Engine::Test' );
72 my $caller = caller(0);
73 *{"$caller\::request"} = sub { $class->run(@_) };
74 *{"$caller\::get"} = sub { $class->run(@_)->content };
84 Sebastian Riedel, C<sri@cpan.org>
88 This program is free software, you can redistribute it and/or modify it under
89 the same terms as Perl itself.