Commit | Line | Data |
---|---|---|
7125b244 | 1 | #!/usr/bin/perl |
9a641848 | 2 | |
3 | use strict; | |
4 | use warnings; | |
5 | ||
a28e50e4 | 6 | use Test::Builder::Tester; |
7125b244 | 7 | use Test::More; |
8 | ||
28fdde7f | 9 | use Test::Moose; |
adf82331 | 10 | |
9a641848 | 11 | { |
7125b244 | 12 | package Foo; |
13 | use Moose::Role; | |
9a641848 | 14 | } |
15 | ||
16 | { | |
7125b244 | 17 | package Bar; |
18 | use Moose; | |
9a641848 | 19 | |
7125b244 | 20 | with qw/Foo/; |
9a641848 | 21 | } |
22 | ||
23 | { | |
7125b244 | 24 | package Baz; |
25 | use Moose; | |
9a641848 | 26 | } |
27 | ||
28 | # class ok | |
29 | ||
30 | test_out('ok 1 - does_ok class'); | |
31 | ||
32 | does_ok('Bar','Foo','does_ok class'); | |
33 | ||
34 | # class fail | |
35 | ||
36 | test_out ('not ok 2 - does_ok class fail'); | |
9a641848 | 37 | test_fail (+2); |
38 | ||
39 | does_ok('Baz','Foo','does_ok class fail'); | |
40 | ||
41 | # object ok | |
42 | ||
43 | my $bar = Bar->new; | |
44 | ||
45 | test_out ('ok 3 - does_ok object'); | |
46 | ||
47 | does_ok ($bar,'Foo','does_ok object'); | |
48 | ||
49 | # object fail | |
50 | ||
51 | my $baz = Baz->new; | |
52 | ||
53 | test_out ('not ok 4 - does_ok object fail'); | |
9a641848 | 54 | test_fail (+2); |
55 | ||
56 | does_ok ($baz,'Foo','does_ok object fail'); | |
57 | ||
58 | test_test ('does_ok'); | |
59 | ||
a28e50e4 | 60 | done_testing; |