Your input (or a pointer for an earlier and better implementation of this wheel) is appreciated.

The problem with this approach (turning the exit into a die) is that it can fall down if there are other bits of exception handling code that could catch the exception thrown by exit.

Some suggestions:

• If you're not worried about cross-platform code, and you're running on unix boxes, fork of a separate process for the code under test and look at the actual exit value.
• Redefine exit so that it does the test you want, then does a normal exit. Obviously this means that you'll have to have this as your last/only test in the script.
• Use an END block - again this means the exit test will have to be the last/only test in the script.

The last option is probably the simplest cross-platform mechanism - something like this (untested) should do the job.

use strict;
use warnings;
use Test::More tests => 1;
use M;

f();

END { is( $?, -1, 'f() exited with -1' ) }
[download]