projects
/
gitmo/Moo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
use XSAccessor if available
[gitmo/Moo.git]
/
t
/
method-generate-accessor.t
diff --git
a/t/method-generate-accessor.t
b/t/method-generate-accessor.t
index
4c15a94
..
93164c8
100644
(file)
--- a/
t/method-generate-accessor.t
+++ b/
t/method-generate-accessor.t
@@
-28,7
+28,7
@@
like(
my $foo = Foo->new(one => 1);
is($foo->one, 1, 'ro reads');
-$foo->one(-3);
+$foo->one(-3) unless $Method::Generate::Accessor::CAN_HAZ_XS;
is($foo->one, 1, 'ro does not write');
is($foo->two, undef, 'rw reads');