From: Florian Ragwitz <rafl@debian.org>
Date: Sat, 9 Jan 2010 17:48:51 +0000 (+0000)
Subject: Delay erroring out on wrong usage of Catalyst::Test.
X-Git-Tag: 5.89000~76
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=f4b9686b68956c43b4809f91a75c744a9316c3ba

Delay erroring out on wrong usage of Catalyst::Test.

We should probably deprecate

use Catalyst::Test;

(without an app name) in favour of

use Catalyst::Test ();
---

diff --git a/lib/Catalyst/Test.pm b/lib/Catalyst/Test.pm
index ae5e3ab..c8d32e8 100644
--- a/lib/Catalyst/Test.pm
+++ b/lib/Catalyst/Test.pm
@@ -17,12 +17,10 @@ my $build_exports = sub {
     my $request;
     my $class = $args->{class};
 
-    if (!$class) {
-        croak "Must specify a test app: use Catalyst::Test 'TestApp'";
-    }
-
     if ( $ENV{CATALYST_SERVER} ) {
         $request = sub { remote_request(@_) };
+    } elsif (!$class) {
+        $request = sub { croak "Must specify a test app: use Catalyst::Test 'TestApp'"; }
     } else {
         unless (Class::MOP::is_class_loaded($class)) {
             Class::MOP::load_class($class);