X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funit_core_classdata.t;h=d054dc6d119c50de2198e9863373e33aa6654255;hb=448e5011e539a42791c6822a3473fb627ce6af41;hp=6d60a96a19ee2e4d64676990a70adef56620c23d;hpb=ae29b412955743885e80350085167b54b69672da;p=catagits%2FCatalyst-Runtime.git diff --git a/t/unit_core_classdata.t b/t/unit_core_classdata.t index 6d60a96..d054dc6 100644 --- a/t/unit_core_classdata.t +++ b/t/unit_core_classdata.t @@ -100,3 +100,7 @@ is(refaddr(ClassDataTest->_hashref), refaddr($hashref3)); is(refaddr(ClassDataTest->_scalarref), refaddr($scalarref3)); is(refaddr(ClassDataTest->_coderef), refaddr($coderef3)); is(ClassDataTest->_scalar, $scalar3); + +my $i = bless {}, 'ClassDataTest'; +$i->_scalar('foo'); +