is( eval { the_function_that_wouldnt_die() }, 42 ) || diag $@;
# think "open(TEST_FILE, "testing") or die $!"
ok( open(TEST_FILE, "testing") ) or diag $!;
diag(<<DIAG) if $^O eq 'darwin';
This test is known to have problems in Mac OS X.
See http://www.foo.com/osxbug for details.
DIAG