improve alias/excludes warning

[gitmo/Moose.git] / t / 500_test_moose / 005_with_immutable.t

diff --git a/t/500_test_moose/005_with_immutable.t b/t/500_test_moose/005_with_immutable.t
index 77e2b6c..ec1358e 100644 (file)
--- a/t/500_test_moose/005_with_immutable.t
+++ b/t/500_test_moose/005_with_immutable.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::Builder::Tester tests => 2;
+use Test::Builder::Tester;
 use Test::More;
 
 BEGIN {
@@ -15,12 +15,26 @@ BEGIN {
     use Moose;
 }
 
+{
+    package Bar;
+    use Moose;
+}
+
 package main;
 
 test_out("ok 1", "not ok 2");
 test_fail(+2);
-with_immutable {
+my $ret = with_immutable {
     ok(Foo->meta->is_mutable);
 } qw(Foo);
+test_test('with_immutable failure');
+ok(!$ret, "one of our tests failed");
+
+test_out("ok 1", "ok 2");
+$ret = with_immutable {
+    ok(Bar->meta->find_method_by_name('new'));
+} qw(Bar);
+test_test('with_immutable success');
+ok($ret, "all tests succeeded");
 
-test_test('with_immutable');
+done_testing;