add spelling test
[gitmo/MooseX-FollowPBP.git] / t / basic.t
1 use strict;
2 use warnings;
3
4 use Test::More;
5
6
7 {
8     package Standard;
9
10     use Moose;
11
12     has 'thing' => ( is => 'rw' );
13     has '_private' => ( is => 'rw' );
14 }
15
16 {
17     package PBP;
18
19     use Moose;
20     use MooseX::FollowPBP;
21
22     has 'thing' => ( is => 'rw' );
23     has '_private' => ( is => 'rw' );
24 }
25
26 {
27     package PBP3;
28
29     use Moose;
30     use MooseX::FollowPBP;
31
32     has 'ro' => ( is => 'ro' );
33     has 'thing' => ( is => 'rw', reader => 'thing' );
34     has 'thing2' => ( is => 'rw', writer => 'set_it' );
35 }
36
37
38 ok( ! Standard->can('get_thing'), 'Standard->get_thing() does not exist' );
39 ok( ! Standard->can('set_thing'), 'Standard->set_thing() does not exist' );
40 ok( ! Standard->can('_get_private'), 'Standard->_get_private() does not exist' );
41 ok( ! Standard->can('_set_private'), 'Standard->_set_private() does not exist' );
42
43 ok( PBP->can('get_thing'), 'PBP->get_thing() exists' );
44 ok( PBP->can('set_thing'), 'PBP->set_thing() exists' );
45 ok( PBP->can('_get_private'), 'PBP->_get_private() exists' );
46 ok( PBP->can('_set_private'), 'PBP->_set_private() exists' );
47
48 ok( PBP3->can('get_ro'), 'PBP3->get_ro exists' );
49 ok( ! PBP3->can('set_ro'), 'PBP3->set_ro does not exist' );
50 ok( ! PBP3->can('get_thing'), 'PBP3->get_thing does not exist' );
51 ok( ! PBP3->can('set_thing'), 'PBP3->set_thing does not exist' );
52 ok( ! PBP3->can('get_thing2'), 'PBP3->get_thing2 does not exist' );
53 ok( ! PBP3->can('set_thing2'), 'PBP3->set_thing2 does not exist' );
54
55 done_testing();