Permalink
Browse files

* Fix mismerge of 62-plack-runner.t so it agrees with the 1.000-fixes…

… branch.
  • Loading branch information...
1 parent fd82d5b commit 6177ef0ae529a5e27843ebf8681c44b32787c880 @audreyt audreyt committed Jul 2, 2011
Showing with 17 additions and 5 deletions.
  1. +17 −5 t/62-plack-runner.t
View
@@ -15,13 +15,25 @@ use Test::TCP;
use Config;
test_tcp(
- client => sub { run_client('feersum psgi runner',shift) },
+ client => sub {
+ my $port = shift;
+ my $cv = AE::cv;
+ $cv->begin;
+ my $cli = simple_client GET => '/',
+ port => $port,
+ name => 'feersum runner',
+ sub {
+ my ($body,$headers) = @_;
+ is $headers->{Status}, 200, "script http success";
+ like $body, qr/^Hello customer number 0x[0-9a-f]+$/;
+ $cv->end;
+ };
+ $cv->recv;
+ },
server => sub {
my $port = shift;
- exec $^X, '-Mblib',
- File::Spec->catfile('blib','script','feersum'),
- '--listen' => "localhost:$port",
- $eg;
+ exec "$^X -Mblib blib/script/feersum --listen localhost:$port ".
+ "eg/app.psgi";
},
);

0 comments on commit 6177ef0

Please sign in to comment.