-my $base = Cwd::abs_path(File::Spec->tmpdir || File::Spec->curdir);
--w $base or BAIL_OUT("$base not writable");
-my $testfile = 'testfile.plp';
-not -f "$base/$testfile" or BAIL_OUT("$testfile exists");
-
-open ORGOUT, '>&', *STDOUT;
-
-sub plp_is {
- my ($test, $plp, $expect, $env) = @_;
- chomp $expect;
- local $Test::Builder::Level = $Test::Builder::Level + 1;
-
- %ENV = (
- REQUEST_METHOD => 'GET',
- REQUEST_URI => "/$testfile/test/123",
- QUERY_STRING => 'test=1&test=2',
- GATEWAY_INTERFACE => 'CGI/1.1',
-
- SCRIPT_NAME => '/plp.cgi',
- SCRIPT_FILENAME => "$base/plp.cgi",
- PATH_INFO => "/$testfile/test/123",
- PATH_TRANSLATED => "$base/$testfile/test/123",
- DOCUMENT_ROOT => $base,
-
- $env ? %{$env} : (),
- ); # Apache/2.2.4 CGI environment
+chdir File::Spec->catdir(dirname($0), '50-cgi')
+ or BAIL_OUT('cannot change to test directory ./50-cgi/');
+my $ORGDIR = '.'; # Cwd::getcwd();