From e525f670502d5f527c2997c83cd06397aa5fdc80 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Sun, 20 Jun 2010 13:52:12 +0200 Subject: prepare release --- Changes | 3 +++ dist.ini | 2 +- t/01_basic.t | 21 ++++++++++----------- 3 files changed, 14 insertions(+), 12 deletions(-) diff --git a/Changes b/Changes index bab3457..aa78763 100644 --- a/Changes +++ b/Changes @@ -1,4 +1,7 @@ Revision history for Perl extension Dancer::Logger::PSGI +0.02 Sun 20 Jun 2010 01:26:57 PM CEST + - better log message [Alexis Sukrieh] + 0.01 Sat Apr 17 12:38:16 2010 - original version diff --git a/dist.ini b/dist.ini index 0f5c737..160701d 100644 --- a/dist.ini +++ b/dist.ini @@ -3,7 +3,7 @@ author = franck cuny license = Perl_5 copyright_holder = franck cuny copyright_year = 2010 -version = 0.01 +version = 0.02 [@Git] [@Filter] diff --git a/t/01_basic.t b/t/01_basic.t index 86de374..a91f923 100644 --- a/t/01_basic.t +++ b/t/01_basic.t @@ -3,9 +3,9 @@ use strict; use warnings; plan skip_all => 'LWP::UserAgent is needed to run this test' - unless Dancer::ModuleLoader->load('LWP::UserAgent'); + 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'); + unless Dancer::ModuleLoader->load('Plack::Middleware::ConsoleLogger'); use Plack::Loader; use Plack::Builder; @@ -14,7 +14,7 @@ use Test::TCP; Test::TCP::test_tcp( client => sub { my $port = shift; - my $ua = LWP::UserAgent->new; + my $ua = LWP::UserAgent->new; my $request = HTTP::Request->new(GET => "http://127.0.0.1:$port/"); my $res = $ua->request($request); @@ -24,26 +24,25 @@ Test::TCP::test_tcp( server => sub { my $port = shift; - use Dancer; - use Dancer::Config 'setting'; + use Dancer ':syntax'; setting apphandler => 'PSGI'; - setting port => $port; + setting port => $port; setting access_log => 0; - setting logger => "PSGI"; + setting logger => "PSGI"; get '/' => sub { warning "this is a warning"; - return "this is a test"; + return "this is a test"; }; my $app = sub { - my $env = shift; + my $env = shift; my $request = Dancer::Request->new($env); Dancer->dance($request); }; - $app = builder { enable "ConsoleLogger"; $app }; - Plack::Loader->auto(port => $port)->run($app); + $app = builder { enable "ConsoleLogger"; $app }; + Plack::Loader->auto(port => $port)->run($app); }, ); -- cgit 1.4.1