X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F002-warnings.t;fp=t%2F001_mouse%2F002-warnings.t;h=0000000000000000000000000000000000000000;hb=0c5c3648c1cd9e2fb5ce6446a0f81fc944cf0829;hp=f5195aa69a8d4acd00941b9ed1a72a15a894f09a;hpb=fbba35c6f2393c3a4744cef9ce63f78ba82ddbad;p=gitmo%2FMouse.git diff --git a/t/001_mouse/002-warnings.t b/t/001_mouse/002-warnings.t deleted file mode 100644 index f5195aa..0000000 --- a/t/001_mouse/002-warnings.t +++ /dev/null @@ -1,20 +0,0 @@ -#!/usr/bin/env perl -use Test::More tests => 1; - -# we used to use Test::Warn here but there's no point in adding three deps total -# for this one easy test - -my @warnings; -local $SIG{__WARN__} = sub { - push @warnings, "@_"; -}; - -do { - package Class; - use Mouse; - - my $one = 1 + undef; -}; - -like("@warnings", qr/^Use of uninitialized value/, 'using Mouse turns on warnings'); -