Commit | Line | Data |
---|---|---|
f2ca7ada | 1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
a28e50e4 | 6 | use Test::Builder::Tester; |
f2ca7ada | 7 | use Test::More; |
8 | ||
28fdde7f | 9 | use Test::Moose; |
f2ca7ada | 10 | |
11 | { | |
12 | package Foo; | |
13 | use Moose; | |
14 | } | |
15 | ||
92c04d5e | 16 | { |
17 | package Bar; | |
18 | use Moose; | |
19 | } | |
20 | ||
f2ca7ada | 21 | package main; |
22 | ||
23 | test_out("ok 1", "not ok 2"); | |
24 | test_fail(+2); | |
92c04d5e | 25 | my $ret = with_immutable { |
f2ca7ada | 26 | ok(Foo->meta->is_mutable); |
27 | } qw(Foo); | |
92c04d5e | 28 | test_test('with_immutable failure'); |
29 | ok(!$ret, "one of our tests failed"); | |
f2ca7ada | 30 | |
92c04d5e | 31 | test_out("ok 1", "ok 2"); |
32 | $ret = with_immutable { | |
33 | ok(Bar->meta->find_method_by_name('new')); | |
34 | } qw(Bar); | |
35 | test_test('with_immutable success'); | |
36 | ok($ret, "all tests succeeded"); | |
a28e50e4 | 37 | |
38 | done_testing; |