On Thu, February 12, 2009 4:20 am, Gabor Szabo wrote: > the one in the docs looks like this: > > # $foo isn't empty > isnt( $foo, '', "Got some foo" ); > > which feels such a weak test I don't think I'd write it.
Somewhat longer version of the same thing: my $warn = ''; %SIG{__WARN__} = sub { $warn .= "@_" }; ... isnt( $warn, '', 'Unexpected warnings during test run' );