BAIL_OUT if any of the classes warn on load (catches things like no methods for an...

diff --git a/moose-class/exercises/t/lib/MooseClass/Tests.pm b/moose-class/exercises/t/lib/MooseClass/Tests.pm
index c3a333a..f47c867 100644 (file)
--- a/moose-class/exercises/t/lib/MooseClass/Tests.pm
+++ b/moose-class/exercises/t/lib/MooseClass/Tests.pm
@@ -369,8 +369,16 @@ sub has_meta {
 
     local $Test::Builder::Level = $Test::Builder::Level + 1;
 
-    use_ok($package)
-        or BAIL_OUT("$package cannot be loaded");
+    {
+        my @warn;
+        local $SIG{__WARN__} = sub { push @warn, @_ };
+
+        use_ok($package)
+            or BAIL_OUT("$package cannot be loaded");
+
+        BAIL_OUT("Warning when loading $package: @warn")
+            if @warn;
+    }
 
     ok( $package->can('meta'), "$package has a meta() method" )
         or BAIL_OUT(