Fix deferred XS accessors and 'around' interaction

[p5sagit/Class-Accessor-Grouped.git] / t / accessors.t

diff --git a/t/accessors.t b/t/accessors.t
index c04ece2..cf219b0 100644 (file)
--- 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 => {