[gitmo/Mouse.git] / t / 002-warnings.t

#!/usr/bin/env perl
use Test::More tests => 1;
use Test::Warn;

warning_like {
    package Class;
    use Mouse;

    my $one = 1 + undef;
} qr/uninitialized value/, 'using Mouse turns on warnings';
Commit	Line	Data
c3398f5b	1	#!/usr/bin/env perl
	2	use Test::More tests => 1;
	3	use Test::Warn;
	4
	5	warning_like {
	6	package Class;
	7	use Mouse;
	8
	9	my $one = 1 + undef;
	10	} qr/uninitialized value/, 'using Mouse turns on warnings';
	11