| Current Path : /proc/self/root/proc/self/root/proc/self/root/usr/share/doc/perl-CGI-Compile/t/ |
| Current File : //proc/self/root/proc/self/root/proc/self/root/usr/share/doc/perl-CGI-Compile/t/chdir.t |
use strict;
use Test::More;
use CGI::Compile;
use Cwd;
my $sub = CGI::Compile->compile("t/error.cgi");
my $dir = Cwd::cwd;
eval { $sub->() };
is Cwd::cwd, $dir;
done_testing;