use Test::More tests => 2;
SKIP: {
skip 'Debugging', 0 unless $ENV{PM_1194120_DEBUG};
diag 'DEBUG MODE!';
diag 'Debug statement #1 (1 == 1): ', 1 == 1 ? 'TRUE' : 'FALSE';
diag 'Debug statement #2 (1 == 0): ', 1 == 0 ? 'TRUE' : 'FALSE';
}
SKIP: {
skip 'Debugging', 2 if $ENV{PM_1194120_DEBUG};
is(1, 1, 'Test: 1 == 1');
isnt(1, 0, 'Test: 1 != 0');
}
####
$ export PM_1194120_DEBUG=0
$ prove -v pm_1194120.t
pm_1194120.t ..
1..2
ok 1 - Test: 1 == 1
ok 2 - Test: 1 != 0
ok
All tests successful.
Files=1, Tests=2, ...
Result: PASS
$ prove pm_1194120.t
pm_1194120.t .. ok
All tests successful.
Files=1, Tests=2, ...
Result: PASS
$ prove pm_1194120.t > /dev/null
$
##
##
$ export PM_1194120_DEBUG=1
$ prove -v pm_1194120.t
pm_1194120.t ..
1..2
# DEBUG MODE!
# Debug statement #1 (1 == 1): TRUE
# Debug statement #2 (1 == 0): FALSE
ok 1 # skip Debugging
ok 2 # skip Debugging
ok
All tests successful.
Files=1, Tests=2, ...
Result: PASS
$ prove pm_1194120.t
pm_1194120.t .. # DEBUG MODE!
# Debug statement #1 (1 == 1): TRUE
# Debug statement #2 (1 == 0): FALSE
pm_1194120.t .. ok
All tests successful.
Files=1, Tests=2, ...
Result: PASS
$ prove pm_1194120.t > /dev/null
# DEBUG MODE!
# Debug statement #1 (1 == 1): TRUE
# Debug statement #2 (1 == 0): FALSE
$