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 (file)
--- 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);