Commit | Line | Data |
4060c871 |
1 | #!/usr/bin/perl |
1f5ce14a |
2 | # This is automatically generated by author/import-moose-test.pl. |
3 | # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!! |
4 | use t::lib::MooseCompat; |
4060c871 |
5 | |
6 | use strict; |
7 | use warnings; |
1f5ce14a |
8 | use Test::More; |
4060c871 |
9 | use Test::Exception; |
10 | |
11 | lives_ok { |
12 | package My::Class; |
13 | use Mouse; |
14 | |
15 | has s_rw => ( |
16 | is => 'rw', |
17 | ); |
18 | |
19 | has s_ro => ( |
20 | is => 'ro', |
21 | ); |
22 | |
23 | has a_rw => ( |
24 | is => 'rw', |
25 | isa => 'ArrayRef', |
26 | |
27 | auto_deref => 1, |
28 | ); |
29 | |
30 | has a_ro => ( |
31 | is => 'ro', |
32 | isa => 'ArrayRef', |
33 | |
34 | auto_deref => 1, |
35 | ); |
36 | |
37 | has h_rw => ( |
38 | is => 'rw', |
39 | isa => 'HashRef', |
40 | |
41 | auto_deref => 1, |
42 | ); |
43 | |
44 | has h_ro => ( |
45 | is => 'ro', |
46 | isa => 'HashRef', |
47 | |
48 | auto_deref => 1, |
49 | ); |
50 | } 'class definition'; |
51 | |
52 | lives_ok { |
53 | my $o = My::Class->new(); |
54 | |
55 | is_deeply [scalar $o->s_rw], [undef], 'uninitialized scalar attribute/rw in scalar context'; |
56 | is_deeply [$o->s_rw], [undef], 'uninitialized scalar attribute/rw in list context'; |
57 | is_deeply [scalar $o->s_ro], [undef], 'uninitialized scalar attribute/ro in scalar context'; |
58 | is_deeply [$o->s_ro], [undef], 'uninitialized scalar attribute/ro in list context'; |
59 | |
60 | |
61 | is_deeply [scalar $o->a_rw], [undef], 'uninitialized ArrayRef attribute/rw in scalar context'; |
62 | is_deeply [$o->a_rw], [], 'uninitialized ArrayRef attribute/rw in list context'; |
63 | is_deeply [scalar $o->a_ro], [undef], 'uninitialized ArrayRef attribute/ro in scalar context'; |
64 | is_deeply [$o->a_ro], [], 'uninitialized ArrayRef attribute/ro in list context'; |
65 | |
66 | is_deeply [scalar $o->h_rw], [undef], 'uninitialized HashRef attribute/rw in scalar context'; |
67 | is_deeply [$o->h_rw], [], 'uninitialized HashRef attribute/rw in list context'; |
68 | is_deeply [scalar $o->h_ro], [undef], 'uninitialized HashRef attribute/ro in scalar context'; |
69 | is_deeply [$o->h_ro], [], 'uninitialized HashRef attribute/ro in list context'; |
70 | |
71 | } 'testing'; |
1f5ce14a |
72 | |
73 | done_testing; |