Permalink
Browse files

changed test app path

  • Loading branch information...
1 parent ace846d commit dce5b90d47d59bb357cecc84d3e9623f38282f77 @dann committed Jan 31, 2009
View
@@ -73,7 +73,6 @@ requires(
'File::Find::Rule' => 0,
'Term::ReadLine' => 0,
'JSON::XS' => 0,
- 'MIME::Types' => 0,
# Components
'Template' => 0,
@@ -89,6 +88,7 @@ requires(
# View Plugins (remove from core)
# Middleware
+ 'MIME::Types' => 0,
);
if (HAVE_MP) {
@@ -29,6 +29,7 @@ has 'debug' => (
default => 0
);
+# This attribute is used for test only
has 'request_handler' => ( is => 'rw', );
sub setup {
@@ -14,23 +14,9 @@ before_handle {
$req;
};
-# TODO
-# if a logger is provided from HTTP::Engine::Middleware ,
-# we don't need the implementation like below
+# TBD mod_perl
sub build_logger {
- if ( eval "require Log::Dispatch; require Log::Dispatch::Screen; 1" ) {
- my $dispatcher = Log::Dispatch->new;
- $dispatcher->add(
- Log::Dispatch::Screen->new(
- name => 'screen',
- min_level => 'debug',
- )
- );
- return $dispatcher;
- }
- else {
- die 'Need to setup logger instance';
- }
+ Angelos::Logger->instance;
}
sub report_request_info {
@@ -1,7 +1,8 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use lib 'lib', 't/lib', 't/TestApp/lib';
+use lib 'lib', 't/lib';
+use lib glob 't/App/*/lib';
use Test::TCP;
use TestApp;
use HTTP::Engine;
@@ -1,7 +1,8 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use lib 'lib', 't/TestApp/lib';
+use lib 'lib', 't/lib';
+use lib glob 't/App/*/lib';
use Devel::Leak::Object qw{ GLOBAL_bless };
use Test::TCP;
use TestApp;
@@ -1,7 +1,8 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use lib 't/TestApp/lib';
+use lib 'lib', 't/lib';
+use lib glob 't/App/*/lib';
use Test::TCP;
use TestApp;
use HTTP::Engine;
@@ -1,7 +1,8 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use lib 'lib', 't/TestApp/lib';
+use lib 'lib';
+use lib glob 't/App/*/lib';
use Test::TCP;
use TestApp;
use HTTP::Engine;

0 comments on commit dce5b90

Please sign in to comment.