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;