6 use Test::Builder::Tester;
9 plan skip_all => 'These tests are only for Test::Builder 0.9x'
10 if Test::Builder->VERSION >= 1.005;
26 test_out("ok 1", "not ok 2");
28 my $ret = with_immutable {
29 ok(Foo->meta->is_mutable);
31 test_test('with_immutable failure');
32 ok(!$ret, "one of our tests failed");
34 test_out("ok 1", "ok 2");
35 $ret = with_immutable {
36 ok(Bar->meta->find_method_by_name('new'));
38 test_test('with_immutable success');
39 ok($ret, "all tests succeeded");