← Back to branch summary

~percona-toolkit-dev/percona-toolkit/release-2.2.2

« back to all changes in this revision

Viewing changes to t/lib/Lmo/role.t.moved

  • Committer: Daniel Nichter
  • Date: 2013-03-11 16:51:30 UTC
  • mfrom: (551 2.2)
  • mto: This revision was merged to the branch mainline in revision 552.
  • Revision ID: daniel@percona.com-20130311165130-limzlpx1hj5c8nwz
Merge 2.2 r551.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/lib/Lmo/role.t.moved
1
 
#!/usr/bin/perl
2
 
 
3
 
BEGIN {
4
 
   die "The PERCONA_TOOLKIT_BRANCH environment variable is not set.\n"
5
 
      unless $ENV{PERCONA_TOOLKIT_BRANCH} && -d $ENV{PERCONA_TOOLKIT_BRANCH};
6
 
   unshift @INC, "$ENV{PERCONA_TOOLKIT_BRANCH}/lib";
7
 
};
8
 
 
9
 
use strict;
10
 
use warnings FATAL => 'all';
11
 
use English qw(-no_match_vars);
12
 
use Test::More;
13
 
 
14
 
BEGIN {
15
 
   my $have_roles = eval { require Role::Tiny };
16
 
   plan skip_all => "Can't load Role::Tiny, not testing Roles"
17
 
      unless $have_roles;
18
 
}
19
 
 
20
 
{
21
 
  package One::P1; use Lmo::Role;
22
 
  has two => (is => 'ro', default => sub { 'two' });
23
 
  no Lmo::Role;
24
 
 
25
 
  package One::P2; use Lmo::Role;
26
 
  has three => (is => 'ro', default => sub { 'three' });
27
 
  no Lmo::Role;
28
 
  
29
 
  package One::P3; use Lmo::Role;
30
 
  has four => (is => 'ro', default => sub { 'four' });
31
 
  no Lmo::Role;
32
 
 
33
 
  package One; use Lmo;
34
 
  with qw( One::P1 One::P2 );
35
 
  has one => (is => 'ro', default => sub { 'one' });
36
 
}
37
 
 
38
 
my $combined = One->new();
39
 
 
40
 
ok $combined->does($_), "Does $_" for qw(One::P1 One::P2);
41
 
 
42
 
ok !$combined->does($_), "Doesn't $_" for qw(One::P3 One::P4);
43
 
 
44
 
is $combined->one, "one",     "attr default set from class";
45
 
is $combined->two, "two",     "attr default set from role";
46
 
is $combined->three, "three", "attr default set from role";
47
 
 
48
 
# Testing unimport
49
 
 
50
 
{
51
 
   package Two::P1; use Lmo::Role;
52
 
   has two => (is => 'ro', default => sub { 'two' });
53
 
   no Lmo::Role;
54
 
 
55
 
   package Two; use Lmo;
56
 
   with qw(Two::P1);
57
 
   has three => ( is => 'ro', default => sub { 'three' } );
58
 
   no Lmo;
59
 
}
60
 
 
61
 
my $two = Two->new();
62
 
 
63
 
is
64
 
   $two->two(),
65
 
   'two',
66
 
   "unimporting in a role doesn't remove new attributes";
67
 
 
68
 
for my $class ( qw( Two::P1 Two ) ) {
69
 
   ok !$class->can($_), "...but does remove $_ from $class" for qw(has with extends requires);
70
 
}
71
 
 
72
 
done_testing;