This file documents the revision history for Perl extension Catalyst.
+? ?
+ - Allow use Catalyst::Test without app name (Ton Voon, Altinity)
+
5.7003 2006-09-21 16:29:45
- Additions and updates to tutorial
if ( $ENV{CATALYST_SERVER} ) {
$request = sub { remote_request(@_) };
$get = sub { remote_request(@_)->content };
- }
-
- else {
+ } elsif (! $class) {
+ $request = sub { Catalyst::Exception->throw("Must specify a test app: use Catalyst::Test 'TestApp'") };
+ $get = $request;
+ } else {
unless( Class::Inspector->loaded( $class ) ) {
require Class::Inspector->filename( $class );
}
--- /dev/null
+#!perl\r
+\r
+use strict;\r
+use warnings;\r
+\r
+use Test::More;\r
+\r
+plan tests => 3;\r
+\r
+use_ok('Catalyst::Test');\r
+\r
+eval "get('http://localhost')";\r
+isnt( $@, "", "get returns an error message with no app specified");\r
+\r
+eval "request('http://localhost')";\r
+isnt( $@, "", "request returns an error message with no app specified");\r