test the pre-5.8.3 weak_ref setter code on newer perls too

diff --git a/t/accessor-weaken-pre-5_8_3.t b/t/accessor-weaken-pre-5_8_3.t
new file mode 100644 (file)
index 0000000..03572a4
--- /dev/null
+++ b/t/accessor-weaken-pre-5_8_3.t
@@ -0,0 +1,13 @@
+use strictures 1;
+use Moo::_Utils;
+
+BEGIN {
+  no warnings 'redefine';
+  *Moo::_Utils::lt_5_8_3 = sub () { 1 };
+}
+
+(my $real_test = __FILE__) =~ s/-pre-5_8_3//;
+
+do $real_test;
+die $@ if $@;
+die $! if $!;