test array delegation edge cases

[gitmo/Moose.git] / t / 010_basics / 007_always_strict_warnings.t

diff --git a/t/010_basics/007_always_strict_warnings.t b/t/010_basics/007_always_strict_warnings.t
index b81588c..454891e 100644 (file)
--- a/t/010_basics/007_always_strict_warnings.t
+++ b/t/010_basics/007_always_strict_warnings.t
@@ -1,47 +1,119 @@
 #!/usr/bin/perl
 
-use Test::More tests => 10;
+use Test::More;
 
 # for classes ...
 {
     package Foo;
     use Moose;
-    
+
     eval '$foo = 5;';
     ::ok($@, '... got an error because strict is on');
     ::like($@, qr/Global symbol \"\$foo\" requires explicit package name at/, '... got the right error');
-    
+
     {
         my $warn;
         local $SIG{__WARN__} = sub { $warn = $_[0] };
 
         ::ok(!$warn, '... no warning yet');
-                
+
         eval 'my $bar = 1 + "hello"';
-        
+
         ::ok($warn, '... got a warning');
         ::like($warn, qr/Argument \"hello\" isn\'t numeric in addition \(\+\)/, '.. and it is the right warning');
     }
+
+    no Moose;
+    undef $@;
+    eval '$foo = 5;';
+    ::ok(!$@, "... no error after no Moose");
+
+    {
+        my $warn;
+        local $SIG{__WARN__} = sub { $warn = $_[0] };
+
+        ::ok(!$warn, '... no warning yet');
+
+        eval 'my $bar = 1 + "hello"';
+
+        ::ok(!$warn, '... still no warning');
+    }
 }
 
 # and for roles ...
 {
     package Bar;
     use Moose::Role;
-    
+
     eval '$foo = 5;';
     ::ok($@, '... got an error because strict is on');
     ::like($@, qr/Global symbol \"\$foo\" requires explicit package name at/, '... got the right error');
-    
+
+    {
+        my $warn;
+        local $SIG{__WARN__} = sub { $warn = $_[0] };
+
+        ::ok(!$warn, '... no warning yet');
+
+        eval 'my $bar = 1 + "hello"';
+
+        ::ok($warn, '... got a warning');
+        ::like($warn, qr/Argument \"hello\" isn\'t numeric in addition \(\+\)/, '.. and it is the right warning');
+    }
+
+    no Moose::Role;
+    undef $@;
+    eval '$foo = 5;';
+    ::ok(!$@, "... no error after no Moose::Role");
+
     {
         my $warn;
         local $SIG{__WARN__} = sub { $warn = $_[0] };
 
         ::ok(!$warn, '... no warning yet');
-                
+
+        eval 'my $bar = 1 + "hello"';
+
+        ::ok(!$warn, '... still no warning');
+    }
+}
+
+# and for exporters
+{
+    package Bar;
+    use Moose::Exporter;
+
+    eval '$foo2 = 5;';
+    ::ok($@, '... got an error because strict is on');
+    ::like($@, qr/Global symbol \"\$foo2\" requires explicit package name at/, '... got the right error');
+
+    {
+        my $warn;
+        local $SIG{__WARN__} = sub { $warn = $_[0] };
+
+        ::ok(!$warn, '... no warning yet');
+
         eval 'my $bar = 1 + "hello"';
-        
+
         ::ok($warn, '... got a warning');
         ::like($warn, qr/Argument \"hello\" isn\'t numeric in addition \(\+\)/, '.. and it is the right warning');
     }
-}
\ No newline at end of file
+
+    no Moose::Exporter;
+    undef $@;
+    eval '$foo = 5;';
+    ::ok(!$@, "... no error after no Moose::Exporter");
+
+    {
+        my $warn;
+        local $SIG{__WARN__} = sub { $warn = $_[0] };
+
+        ::ok(!$warn, '... no warning yet');
+
+        eval 'my $bar = 1 + "hello"';
+
+        ::ok(!$warn, '... still no warning');
+    }
+}
+
+done_testing;