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";