Applied patch from Ton Voon, using Catalyst::Test without App name

diff --git a/Changes b/Changes
index 2f8f386..4b70c08 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 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
 

diff --git a/lib/Catalyst/Test.pm b/lib/Catalyst/Test.pm
index b46742d..ee37228 100644 (file)
--- a/lib/Catalyst/Test.pm
+++ b/lib/Catalyst/Test.pm
@@ -72,9 +72,10 @@ sub import {
     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 );
         }

diff --git a/t/unit_load_catalyst_test.t b/t/unit_load_catalyst_test.t
new file mode 100644 (file)
index 0000000..08b7e7c
--- /dev/null
+++ b/t/unit_load_catalyst_test.t
@@ -0,0 +1,16 @@
+#!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