Bring back 5.8.1 support

[gitmo/Role-Tiny.git] / t / accessor-weaken.t

diff --git a/t/accessor-weaken.t b/t/accessor-weaken.t
index 2bfecbe..3b99264 100644 (file)
--- a/t/accessor-weaken.t
+++ b/t/accessor-weaken.t
@@ -9,11 +9,29 @@ use Test::More;
   has one => (is => 'ro', weak_ref => 1);
 }
 
-my $ref = \'yay';
-
+my $ref = {};
 my $foo = Foo->new(one => $ref);
-
-is(${$foo->one},'yay', 'value present');
+is($foo->one, $ref, 'value present');
 ok(Scalar::Util::isweak($foo->{one}), 'value weakened');
+undef $ref;
+ok (!defined $foo->{one}, 'weak value gone');
+
+# test readonly SVs
+sub mk_ref { \ 'yay' };
+my $foo_ro = eval { Foo->new(one => mk_ref()) };
+if ($] < 5.008003) {
+  like(
+    $@,
+    qr/\QReference to readonly value in "one" can not be weakened on Perl < 5.8.3/,
+    'Expected exception thrown on old perls'
+  );
+}
+else {
+  is(${$foo_ro->one},'yay', 'value present');
+  ok(Scalar::Util::isweak($foo_ro->{one}), 'value weakened');
+
+  { no warnings 'redefine'; *mk_ref = sub {} }
+  ok (!defined $foo_ro->{one}, 'optree reaped, ro static value gone');
+}
 
 done_testing;