This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #124387] TODO test for AUTOLOAD on DESTROY
authorTony Cook <tony@develop-help.com>
Tue, 19 Jan 2016 00:39:48 +0000 (11:39 +1100)
committerTony Cook <tony@develop-help.com>
Mon, 8 Feb 2016 03:52:57 +0000 (14:52 +1100)
t/op/method.t

index 0d7f254..bdac5bb 100644 (file)
@@ -13,7 +13,7 @@ BEGIN {
 use strict;
 no warnings 'once';
 
-plan(tests => 148);
+plan(tests => 149);
 
 @A::ISA = 'B';
 @B::ISA = 'C';
@@ -460,6 +460,17 @@ is $kalled, 1, 'calling a class method via a magic variable';
    { bless {}, "NoSub"; }
 }
 
+{
+    # [perl #124387]
+    local $::TODO = "AUTOLOAD not being called for DESTROY";
+    my $autoloaded;
+    package AutoloadDestroy;
+    sub AUTOLOAD { $autoloaded = 1 }
+    package main;
+    bless {}, "AutoloadDestroy";
+    ok($autoloaded, "AUTOLOAD called for DESTROY");
+}
+
 eval { () = 3; new {} };
 like $@,
      qr/^Can't call method "new" without a package or object reference/,