Don't warn about squirrel deprecations

[gitmo/Mouse.git] / t / 201-squirrel.t

diff --git a/t/201-squirrel.t b/t/201-squirrel.t
index 85c0fe5..c2fb73b 100644 (file)
--- a/t/201-squirrel.t
+++ b/t/201-squirrel.t
@@ -4,7 +4,12 @@ use strict;
 use warnings;
 
 use Test::More;
-use Mouse::Util 'blessed';
+use Scalar::Util 'blessed';
+
+# Don't spew deprecation warnings onto the user's screen
+BEGIN {
+    $SIG{__WARN__} = sub { warn $_[0] if $_[0] !~ /Squirrel is deprecated/ };
+}
 
 do {
     package Foo;