| Current Path : /proc/self/root/proc/thread-self/root/proc/self/root/usr/share/doc/perl-CGI-Compile/t/ |
| Current File : //proc/self/root/proc/thread-self/root/proc/self/root/usr/share/doc/perl-CGI-Compile/t/exit.t |
use strict;
use Test::More tests => 2;
use CGI::Compile;
use Capture::Tiny 'capture_stdout';
use lib "t";
use Exit;
my $sub = CGI::Compile->compile("t/exit.cgi");
my $out = capture_stdout { $sub->() };
like $out, qr/Hello/;
pass "Not exiting";
Exit::main;
fail "Should exit";