Don't warn about squirrel deprecations

diff --git a/Changes b/Changes
index 5ad7070..1e07dc5 100644 (file)
--- a/Changes
+++ b/Changes
@@ -11,6 +11,8 @@ Revision history for Mouse
 
     * Fix failing tests by requiring a newer Moose in that test (Sartak)
 
+    * Don't warn in tests about Squirrel deprecations (Sartak)
+
 0.23 Wed May 27 16:52:28 2009
     * Take the mro::linearized_isa DEMOLISHALL fix from Moose
       (originally by doy)

diff --git a/t/201-squirrel.t b/t/201-squirrel.t
index 8a37731..c2fb73b 100644 (file)
--- a/t/201-squirrel.t
+++ b/t/201-squirrel.t
@@ -6,6 +6,11 @@ use warnings;
 use Test::More;
 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;
     use Squirrel;