failing test for a certain case of specifying the site root

[catagits/Catalyst-Controller-WrapCGI.git] / t / cgibin_root_path.t

#!perl

use strict;
use warnings;

use FindBin '$Bin';
use lib "$Bin/lib";

use Test::More tests => 2;

# Test configurable path root and dir
{ package root_test;

  use Test::More;
  use HTTP::Request::Common;
  use Catalyst::Test 'TestCGIBinRoot';

    my $response = request POST '/cgi/path/test.pl', [
        foo => 'bar',
        bar => 'baz'
       ];

    is($response->content, 'foo:bar bar:baz', 'POST to Perl CGI File');
}

# test another variation on specifying the root path
{ package another_root_test;

  use Test::More;
  use HTTP::Request::Common;
  use Catalyst::Test 'TestCGIBinRoot2';

  my $response = request POST '/cgi/path/test.pl', [
      foo => 'bar',
      bar => 'baz'
     ];

  is($response->content, 'foo:bar bar:baz', 'POST to Perl CGI File 2');
}