X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faccessors.t;fp=t%2Faccessors.t;h=cf219b0fc6f7cfc5e78d4ef7d0441691d10baed1;hb=de1673798e9795ee442cae7581215bfda4af3607;hp=c04ece203a11b02d7afa46576a576a9617aba8a9;hpb=52e8510128cc086282b490d5845cc89765348910;p=p5sagit%2FClass-Accessor-Grouped.git diff --git a/t/accessors.t b/t/accessors.t index c04ece2..cf219b0 100644 --- a/t/accessors.t +++ b/t/accessors.t @@ -1,4 +1,4 @@ -use Test::More tests => 98; +use Test::More tests => 117; use strict; use warnings; use lib 't/lib'; @@ -45,6 +45,12 @@ my $test_accessors = { is_xs => $use_xs, has_extra => 1, }, + runtime_around => { + # even though this accessor is simple it will *not* be XSified + # due to the runtime 'around' + is_xs => 0, + has_extra => 1, + }, multiple1 => { }, multiple2 => {