www-server.psgi.t 326 B

1234567891011121314151617
  1. use strict;
  2. use warnings;
  3. use Test2::V0;
  4. use Test2::Tools::Explain;
  5. use FindBin;
  6. use Plack::Test;
  7. use HTTP::Request::Common;
  8. require "$FindBin::Bin/../www/server.psgi" or die 'Could not require server.psgi';
  9. my $test = Plack::Test->create($tcms::app);
  10. my $res = $test->request(HEAD "/");
  11. diag explain [$tcms::app],$res;