t/cgibin_root_path.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use FindBin '$Bin';
   7 use lib "$Bin/lib";
   8
   9 use Test::More tests => 2;
  10
  11 # Test configurable path root and dir
  12 { package root_test;
  13
  14   use Test::More;
  15   use HTTP::Request::Common;
  16   use Catalyst::Test 'TestCGIBinRoot';
  17
  18     my $response = request POST '/cgi/path/test.pl', [
  19         foo => 'bar',
  20         bar => 'baz'
  21        ];
  22
  23     is($response->content, 'foo:bar bar:baz', 'POST to Perl CGI File');
  24 }
  25
  26 # test another variation on specifying the root path
  27 { package another_root_test;
  28
  29   use Test::More;
  30   use HTTP::Request::Common;
  31   use Catalyst::Test 'TestCGIBinRoot2';
  32
  33   my $response = request POST '/cgi/path/test.pl', [
  34       foo => 'bar',
  35       bar => 'baz'
  36      ];
  37
  38   is($response->content, 'foo:bar bar:baz', 'POST to Perl CGI File 2');
  39 }