X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F002-warnings.t;h=f5195aa69a8d4acd00941b9ed1a72a15a894f09a;hb=8a3e5c5d45741e488e89d5130b5dcb44f2c6a6f4;hp=4d577263e6deadd0528d888c9748a84deb413448;hpb=c3398f5bd45f2851b7cd40ca9823bcf7d2378469;p=gitmo%2FMouse.git

diff --git a/t/002-warnings.t b/t/002-warnings.t
index 4d57726..f5195aa 100644
--- a/t/002-warnings.t
+++ b/t/002-warnings.t
@@ -1,11 +1,20 @@
 #!/usr/bin/env perl
 use Test::More tests => 1;
-use Test::Warn;
 
-warning_like {
+# 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;
-} qr/uninitialized value/, 'using Mouse turns on warnings';
+};
+
+like("@warnings", qr/^Use of uninitialized value/, 'using Mouse turns on warnings');