fix for prototype undecl issue when type constraint utils loaded before consumers...

[gitmo/Moose.git] / t / 032_attribute_accessor_generation.t

diff --git a/t/032_attribute_accessor_generation.t b/t/032_attribute_accessor_generation.t
index 5bbc1fa..1a24860 100644 (file)
--- a/t/032_attribute_accessor_generation.t
+++ b/t/032_attribute_accessor_generation.t
@@ -14,8 +14,6 @@ BEGIN {
 
 {
     package Foo;
-    use strict;
-    use warnings;
     use Moose;
     
     eval {
@@ -157,7 +155,7 @@ BEGIN {
     ok(isweak($foo->{foo_weak}), '... it is a weak reference');
 
     can_ok( $foo, 'foo_deref');
-    is( $foo->foo_deref(), undef, '... unset value');
+    is_deeply( [$foo->foo_deref()], [], '... default default value');
     my @list;
     lives_ok {
         @list = $foo->foo_deref();
@@ -176,7 +174,7 @@ BEGIN {
 
 
     can_ok( $foo, 'foo_deref' );
-    is( $foo->foo_deref_ro(), undef, "... unset value" );
+    is_deeply( [$foo->foo_deref_ro()], [], "... default default value" );
 
     dies_ok {
         $foo->foo_deref_ro( [] );
@@ -188,7 +186,7 @@ BEGIN {
     is_deeply( [ $foo->foo_deref_ro() ], [qw/la la la/], "list context ro" );
 
     can_ok( $foo, 'foo_deref_hash' );
-    is( $foo->foo_deref_hash(), undef, "... unset value" );
+    is_deeply( { $foo->foo_deref_hash() }, {}, "... default default value" );
 
     my %hash;
     lives_ok {