| 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/warnings.t |
use Test::More;
use Capture::Tiny 'capture_stdout';
use CGI::Compile;
my $sub = CGI::Compile->compile("t/warnings.cgi");
my $stdout = do {
local $^W = 0;
capture_stdout { $sub->() };
};
like $stdout, qr/\s*1\z/, '-w switch preserved';
done_testing;