diff options
author | franck cuny <franck@lumberjaph.net> | 2010-04-17 13:23:08 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-04-17 13:23:08 +0200 |
commit | 2d615db13d2dbe9f134d8cc59f0b770282bf35b6 (patch) | |
tree | 9ee716dc599f12896150d1d38978f99b3724ba00 /t | |
parent | initial commit (diff) | |
download | dancer-logger-psgi-2d615db13d2dbe9f134d8cc59f0b770282bf35b6.tar.gz |
log to psgix.logger
Diffstat (limited to 't')
-rw-r--r-- | t/01_basic.t | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/t/01_basic.t b/t/01_basic.t new file mode 100644 index 0000000..cd93d94 --- /dev/null +++ b/t/01_basic.t @@ -0,0 +1,50 @@ +use Test::More import => ['!pass']; +use strict; +use warnings; + +plan skip_all => 'LWP::UserAgent is needed to run this test' + unless Dancer::ModuleLoader->load('LWP::UserAgent'); +plan skip_all => 'Plack::Middleware::ConsoleLogger is needed to run this test' + unless Dancer::ModuleLoader->load('Plack::Middleware::ConsoleLogger'); + +use Plack::Loader; +use Plack::Builder; +use Test::TCP; + +Test::TCP::test_tcp( + client => sub { + my $port = shift; + my $ua = LWP::UserAgent->new; + + my $request = HTTP::Request->new(GET => "http://127.0.0.1:$port/"); + my $res = $ua->request($request); + ok($res->is_success, "server responded"); + like($res->content, qr/this is a warning/, "log message send"); + }, + server => sub { + my $port = shift; + + use Dancer; + use Dancer::Config 'setting'; + + setting apphandler => 'PSGI'; + setting port => $port; + setting access_log => 0; + setting logger => "PSGI"; + + get '/' => sub { + warning "this is a warning"; + return "<html><body>this is a test</body></html>"; + }; + + my $app = sub { + my $env = shift; + my $request = Dancer::Request->new($env); + Dancer->dance($request); + }; + $app = builder { enable "ConsoleLogger"; $app }; + Plack::Loader->auto(port => $port)->run($app); + }, +); + +done_testing; |