163ce5773ea3c5627a2b9822848b0d9fded79398
[gitmo/Mouse.git] / t / 900_mouse_bugs / 012_RT61906.t
1 #!perl
2 #https://rt.cpan.org/Ticket/Display.html?id=61906
3 use strict;
4 use warnings;
5 use Test::More;
6
7 package MouseObj;
8 use Mouse 0.78;
9
10 has 'only_accessor' => (
11    is  => 'rw',
12    isa => 'Int',
13    accessor => 'only_accessor_accessor',
14 );
15
16 has 'accesor_and_writer' => (
17    is  => 'rw',
18    isa => 'Int',
19    accessor => 'accesor_and_writer_accessor',
20    writer   => 'accesor_and_writer_writer',
21 );
22
23 has 'not_with_is' => (
24    isa => 'Int',
25    accessor => 'not_with_is_accessor',
26 );
27
28 package main;
29
30 can_ok('MouseObj', 'only_accessor_accessor');
31 can_ok('MouseObj', 'accesor_and_writer_accessor');
32 can_ok('MouseObj', 'accesor_and_writer_writer');
33 can_ok('MouseObj', 'not_with_is_accessor');
34
35 done_testing;