BUILDALL and DEMOLISHALL are no longer called by the default constructor/destructor.

[gitmo/Mouse.git] / t / 100_bugs / 014_DEMOLISHALL.t

diff --git a/t/100_bugs/014_DEMOLISHALL.t b/t/100_bugs/014_DEMOLISHALL.t
deleted file mode 100644 (file)
index f3cb306..0000000
--- a/t/100_bugs/014_DEMOLISHALL.t
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More tests => 5;
-
-my @called;
-
-do {
-    package Class;
-    use Mouse;
-
-    sub DEMOLISH {
-        push @called, 'Class::DEMOLISH';
-    }
-
-    sub DEMOLISHALL {
-        my $self = shift;
-        push @called, 'Class::DEMOLISHALL';
-        $self->SUPER::DEMOLISHALL(@_);
-    }
-
-    package Child;
-    use Mouse;
-    extends 'Class';
-
-    sub DEMOLISH {
-        push @called, 'Child::DEMOLISH';
-    }
-
-    sub DEMOLISHALL {
-        my $self = shift;
-        push @called, 'Child::DEMOLISHALL';
-        $self->SUPER::DEMOLISHALL(@_);
-    }
-};
-
-is_deeply([splice @called], [], "no DEMOLISH calls yet");
-
-do {
-    my $object = Class->new;
-
-    is_deeply([splice @called], [], "no DEMOLISH calls yet");
-};
-
-is_deeply([splice @called], ['Class::DEMOLISHALL', 'Class::DEMOLISH']);
-
-do {
-    my $child = Child->new;
-    is_deeply([splice @called], [], "no DEMOLISH calls yet");
-
-};
-
-is_deeply([splice @called], ['Child::DEMOLISHALL', 'Class::DEMOLISHALL', 'Child::DEMOLISH', 'Class::DEMOLISH']);
-