3 use Scalar::Util qw/refaddr blessed/;
4 use Test::More tests => 37;
9 with 'Catalyst::ClassData';
11 package ClassDataTest2;
13 extends 'ClassDataTest';
20 my $scalarref = \$scalar;
21 my $coderef = sub { "beep" };
26 my $scalarref2 = \$scalar2;
27 my $coderef2 = sub { "beep" };
32 my $scalarref3 = \$scalar3;
33 my $coderef3 = sub { "beep" };
36 my @accessors = qw/_arrayref _hashref _scalarref _coderef _scalar/;
37 ClassDataTest->mk_classdata($_) for @accessors;
38 can_ok('ClassDataTest', @accessors);
40 ClassDataTest2->mk_classdata("beep", "meep");
41 is(ClassDataTest2->beep, "meep");
43 ClassDataTest->_arrayref($arrayref);
44 ClassDataTest->_hashref($hashref);
45 ClassDataTest->_scalarref($scalarref);
46 ClassDataTest->_coderef($coderef);
47 ClassDataTest->_scalar($scalar);
49 is(ref(ClassDataTest->_arrayref), 'ARRAY');
50 is(ref(ClassDataTest->_hashref), 'HASH');
51 is(ref(ClassDataTest->_scalarref), 'SCALAR');
52 is(ref(ClassDataTest->_coderef), 'CODE');
53 ok( !ref(ClassDataTest->_scalar) );
54 is(refaddr(ClassDataTest->_arrayref), refaddr($arrayref));
55 is(refaddr(ClassDataTest->_hashref), refaddr($hashref));
56 is(refaddr(ClassDataTest->_scalarref), refaddr($scalarref));
57 is(refaddr(ClassDataTest->_coderef), refaddr($coderef));
58 is(ClassDataTest->_scalar, $scalar);
61 is(ref(ClassDataTest2->_arrayref), 'ARRAY');
62 is(ref(ClassDataTest2->_hashref), 'HASH');
63 is(ref(ClassDataTest2->_scalarref), 'SCALAR');
64 is(ref(ClassDataTest2->_coderef), 'CODE');
65 ok( !ref(ClassDataTest2->_scalar) );
66 is(refaddr(ClassDataTest2->_arrayref), refaddr($arrayref));
67 is(refaddr(ClassDataTest2->_hashref), refaddr($hashref));
68 is(refaddr(ClassDataTest2->_scalarref), refaddr($scalarref));
69 is(refaddr(ClassDataTest2->_coderef), refaddr($coderef));
70 is(ClassDataTest2->_scalar, $scalar);
72 ClassDataTest2->_arrayref($arrayref2);
73 ClassDataTest2->_hashref($hashref2);
74 ClassDataTest2->_scalarref($scalarref2);
75 ClassDataTest2->_coderef($coderef2);
76 ClassDataTest2->_scalar($scalar2);
78 is(refaddr(ClassDataTest2->_arrayref), refaddr($arrayref2));
79 is(refaddr(ClassDataTest2->_hashref), refaddr($hashref2));
80 is(refaddr(ClassDataTest2->_scalarref), refaddr($scalarref2));
81 is(refaddr(ClassDataTest2->_coderef), refaddr($coderef2));
82 is(ClassDataTest2->_scalar, $scalar2);
84 is(refaddr(ClassDataTest->_arrayref), refaddr($arrayref));
85 is(refaddr(ClassDataTest->_hashref), refaddr($hashref));
86 is(refaddr(ClassDataTest->_scalarref), refaddr($scalarref));
87 is(refaddr(ClassDataTest->_coderef), refaddr($coderef));
88 is(ClassDataTest->_scalar, $scalar);
90 ClassDataTest->_arrayref($arrayref3);
91 ClassDataTest->_hashref($hashref3);
92 ClassDataTest->_scalarref($scalarref3);
93 ClassDataTest->_coderef($coderef3);
94 ClassDataTest->_scalar($scalar3);
96 is(refaddr(ClassDataTest->_arrayref), refaddr($arrayref3));
97 is(refaddr(ClassDataTest->_hashref), refaddr($hashref3));
98 is(refaddr(ClassDataTest->_scalarref), refaddr($scalarref3));
99 is(refaddr(ClassDataTest->_coderef), refaddr($coderef3));
100 is(ClassDataTest->_scalar, $scalar3);
102 my $i = bless {}, 'ClassDataTest';