From b03e09d01466a7e720c0c16c4319a3853b29005c Mon Sep 17 00:00:00 2001 From: franck cuny Date: Sun, 25 Apr 2010 22:08:50 +0200 Subject: a simple application to test --- t/01_basic.t | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 t/01_basic.t (limited to 't/01_basic.t') diff --git a/t/01_basic.t b/t/01_basic.t new file mode 100644 index 0000000..72bfcc6 --- /dev/null +++ b/t/01_basic.t @@ -0,0 +1,40 @@ +use strict; +use warnings; + +#use lib ('t/lib'); +use Test::More tests => 2; + +use HTTP::Request; +use LWP::UserAgent; +use Plack::Loader; +use Dancer::Config 'setting'; +#use TestApp; + +use Test::TCP; + +my $app = sub { + my $env = shift; + my $request = Dancer::Request->new($env); + Dancer->dance($request); +}; + +Test::TCP::test_tcp( + client => sub { + my $port = shift; + my $req = HTTP::Request->new(GET => "http://127.0.0.1:$port/"); + $req->header( 'Accept-Language' => 'fr' ); + my $ua = LWP::UserAgent->new; + my $res = $ua->request($req); + like $res->content, qr/first we got bonjour/, 'french content'; + like $res->content, qr/then we have hallo/, 'german content'; + }, + server => sub { + use t::lib::TestApp; + my $port = shift; + setting apphandler => 'PSGI'; + setting template => 'template_toolkit'; + Dancer::Config->load; + Plack::Loader->auto( port => $port )->run($app); + } +); + -- cgit 1.4.1