Add a test file for throw_error()

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

diff --git a/t/201-squirrel.t b/t/201-squirrel.t
index 85c0fe5..daeed22 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;
@@ -22,7 +27,7 @@ do {
 # affecting its definition
 
 BEGIN {
-    plan skip_all => "Moose required for this test" unless eval { require Moose };
+    plan skip_all => "Moose 0.68 required for this test" unless eval { require Moose && Moose->VERSION('0.68') };
     plan tests => 12;
 }