Your IP : 216.73.216.74

Current Path : /proc/thread-self/root/usr/share/doc/perl-Test-Warnings/examples/
Upload File :
Current File : //proc/thread-self/root/usr/share/doc/perl-Test-Warnings/examples/no_plan.t

use strict;
use warnings;

use Test::More;
use Test::Warnings ':all';

is(1, 1, 'passing test');

had_no_warnings;

ok(!allowing_warnings, 'warnings are not currently allowed');

allow_warnings;
ok(allowing_warnings, 'warnings are now allowed');

warn 'this warning will not cause a failure';
had_no_warnings;

allow_warnings(0);
ok(!allowing_warnings, 'warnings are not allowed again');
warn 'oh noes, something warned!';

# this will now fail.
had_no_warnings;

# had_no_warnings will be called automatically from END
# done_testing not called... will cause a test failure