t/070_attribute_helpers/020_remove_attribute.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 12;
   7 use Test::Exception;
   8
   9 BEGIN {
  10     use_ok('Moose::AttributeHelpers');
  11 }
  12
  13 {
  14     package MyHomePage;
  15     use Moose;
  16
  17     has 'counter' => (
  18         traits  => ['Counter'],
  19         is      => 'ro',
  20         isa     => 'Int',
  21         default => 0,
  22         handles => {
  23             inc_counter   => 'inc',
  24             dec_counter   => 'dec',
  25             reset_counter => 'reset',
  26         }
  27     );
  28 }
  29
  30 my $page = MyHomePage->new();
  31 isa_ok( $page, 'MyHomePage' );
  32
  33 can_ok( $page, $_ ) for qw[
  34     counter
  35     dec_counter
  36     inc_counter
  37     reset_counter
  38 ];
  39
  40 lives_ok {
  41     $page->meta->remove_attribute('counter');
  42 }
  43 '... removed the counter attribute okay';
  44
  45 ok( !$page->meta->has_attribute('counter'),
  46     '... no longer has the attribute' );
  47
  48 ok( !$page->can($_), "... our class no longer has the $_ method" ) for qw[
  49     counter
  50     dec_counter
  51     inc_counter
  52     reset_counter
  53 ];