add spelling test
[gitmo/MooseX-FollowPBP.git] / t / basic.t
CommitLineData
a623c113 1use strict;
2use warnings;
3
4use 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
38ok( ! Standard->can('get_thing'), 'Standard->get_thing() does not exist' );
39ok( ! Standard->can('set_thing'), 'Standard->set_thing() does not exist' );
40ok( ! Standard->can('_get_private'), 'Standard->_get_private() does not exist' );
41ok( ! Standard->can('_set_private'), 'Standard->_set_private() does not exist' );
42
43ok( PBP->can('get_thing'), 'PBP->get_thing() exists' );
44ok( PBP->can('set_thing'), 'PBP->set_thing() exists' );
45ok( PBP->can('_get_private'), 'PBP->_get_private() exists' );
46ok( PBP->can('_set_private'), 'PBP->_set_private() exists' );
47
48ok( PBP3->can('get_ro'), 'PBP3->get_ro exists' );
49ok( ! PBP3->can('set_ro'), 'PBP3->set_ro does not exist' );
50ok( ! PBP3->can('get_thing'), 'PBP3->get_thing does not exist' );
51ok( ! PBP3->can('set_thing'), 'PBP3->set_thing does not exist' );
52ok( ! PBP3->can('get_thing2'), 'PBP3->get_thing2 does not exist' );
53ok( ! PBP3->can('set_thing2'), 'PBP3->set_thing2 does not exist' );
54
55done_testing();