Permalink
Browse files

skip tests early if perlbal is not in PATH

  • Loading branch information...
1 parent 8bb3e45 commit 700e9a17510ca5141cfa58846c92a53d2ab919f1 @miyagawa committed Feb 27, 2010
Showing with 4 additions and 5 deletions.
  1. +4 −5 t/perlbal.t
View
@@ -9,17 +9,16 @@ use FindBin;
use Plack::Test::Suite;
+chomp(my $perlbal_bin = `which perlbal`);
+plan skip_all => 'perlbal not found in PATH'
+ unless $perlbal_bin && -x $perlbal_bin;
+
Plack::Test::Suite->run_server_tests(\&run_perlbal);
done_testing();
sub run_perlbal {
my $port = shift;
- chomp(my $perlbal_bin = `which perlbal`);
-
- plan skip_all => 'perlbal not found in PATH'
- unless $perlbal_bin && -x $perlbal_bin;
-
my $tmpdir = File::Temp::tempdir( CLEANUP => 1 );
write_file("$tmpdir/app.psgi", _render_psgi());

0 comments on commit 700e9a1

Please sign in to comment.