Revert autogenerated tests. Tests should not changed radically.

[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 ff100ff..0000000
--- a/t/100_bugs/014_DEMOLISHALL.t
+++ /dev/null
@@ -1,59 +0,0 @@
-#!/usr/bin/env perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
-use strict;
-use warnings;
-use Test::More;
-$TODO = q{Mouse is not yet completed};
-
-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']);
-
-done_testing;