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

f();

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