add with qw( Role1 Role2 ) support

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

diff --git a/t/201-squirrel.t b/t/201-squirrel.t
index 198af9e..85c0fe5 100644 (file)
--- a/t/201-squirrel.t
+++ b/t/201-squirrel.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Scalar::Util 'blessed';
+use Mouse::Util 'blessed';
 
 do {
     package Foo;
@@ -56,12 +56,15 @@ eval "
     use Squirrel;
 
     has bar => (is => 'rw');
+    __PACKAGE__->meta->make_immutable;
 
     package Bar;
     use Squirrel;
 
     has bar => (is => 'rw');
+    __PACKAGE__->meta->make_immutable;
 ";
+warn $@ if $@;
 
 is(blessed(Foo->meta->get_attribute('foo')), 'Mouse::Meta::Attribute');
 is(blessed(Foo->meta->get_attribute('bar')), 'Mouse::Meta::Attribute', 'Squirrel is consistent if Moose was loaded between imports');