use Test::More;
foreach my $mod (qw(Plack::Util Plack::Request Plack::Builder Danga::Socket
- HTTP::Parser::XS HTTP::Date HTTP::Status)) {
+ HTTP::Date HTTP::Status)) {
eval "require $mod";
plan skip_all => "$mod missing for httpd-unix.t" if $@;
}
ok(-f "$tmpdir/pid", 'pid file written');
open my $fh, '<', "$tmpdir/pid" or die "open failed: $!";
+ local $/ = "\n";
my $rpid = <$fh>;
chomp $rpid;
like($rpid, qr/\A\d+\z/s, 'pid file looks like a pid');