X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Funit_core_classdata.t;h=6d60a96a19ee2e4d64676990a70adef56620c23d;hp=eee3a3532888133f239b100c503a570d956058ce;hb=4ac0b9cb8e9043db8a95f44af685c782bf9426e7;hpb=76aab9932e14205c81eeb31d811d2a131eede4cf

diff --git a/t/unit_core_classdata.t b/t/unit_core_classdata.t
index eee3a35..6d60a96 100644
--- a/t/unit_core_classdata.t
+++ b/t/unit_core_classdata.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 use Scalar::Util qw/refaddr blessed/;
-use Test::More tests => 32;
+use Test::More tests => 37;
 
 {
   package ClassDataTest;
@@ -28,6 +28,12 @@ use Test::More tests => 32;
   my $scalarref2 = \$scalar2;
   my $coderef2 = sub { "beep" };
 
+  my $scalar3 = '300';
+  my $arrayref3 = [];
+  my $hashref3 = {};
+  my $scalarref3 = \$scalar3;
+  my $coderef3 = sub { "beep" };
+
 
 my @accessors = qw/_arrayref _hashref _scalarref _coderef _scalar/;
 ClassDataTest->mk_classdata($_) for @accessors;
@@ -82,3 +88,15 @@ is(refaddr(ClassDataTest->_hashref), refaddr($hashref));
 is(refaddr(ClassDataTest->_scalarref), refaddr($scalarref));
 is(refaddr(ClassDataTest->_coderef), refaddr($coderef));
 is(ClassDataTest->_scalar, $scalar);
+
+ClassDataTest->_arrayref($arrayref3);
+ClassDataTest->_hashref($hashref3);
+ClassDataTest->_scalarref($scalarref3);
+ClassDataTest->_coderef($coderef3);
+ClassDataTest->_scalar($scalar3);
+
+is(refaddr(ClassDataTest->_arrayref), refaddr($arrayref3));
+is(refaddr(ClassDataTest->_hashref), refaddr($hashref3));
+is(refaddr(ClassDataTest->_scalarref), refaddr($scalarref3));
+is(refaddr(ClassDataTest->_coderef), refaddr($coderef3));
+is(ClassDataTest->_scalar, $scalar3);