summaryrefslogtreecommitdiffstats
path: root/t/40-destructor.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2013-09-04 19:38:21 -0400
committerJesse Luehrs <doy@tozt.net>2013-09-04 19:47:11 -0400
commit8bf5e6931a1bd96df0cdb1ceb94bbb3e578a8126 (patch)
tree2e659a8f07ea1cca3091a9c0578bbd8e53c20c11 /t/40-destructor.t
parent8e0b4f219f2d8d94cb6937ef47168ac5fac03cd9 (diff)
downloadmoosex-nonmoose-8bf5e6931a1bd96df0cdb1ceb94bbb3e578a8126.tar.gz
moosex-nonmoose-8bf5e6931a1bd96df0cdb1ceb94bbb3e578a8126.zip
packaging
Diffstat (limited to 't/40-destructor.t')
-rw-r--r--t/40-destructor.t30
1 files changed, 0 insertions, 30 deletions
diff --git a/t/40-destructor.t b/t/40-destructor.t
deleted file mode 100644
index e9a2185..0000000
--- a/t/40-destructor.t
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-use Test::Moose;
-
-my ($destroyed, $demolished);
-package Foo;
-
-sub new { bless {}, shift }
-
-sub DESTROY { $destroyed++ }
-
-package Foo::Sub;
-use Moose;
-use MooseX::NonMoose;
-extends 'Foo';
-
-sub DEMOLISH { $demolished++ }
-
-package main;
-
-with_immutable {
- ($destroyed, $demolished) = (0, 0);
- { Foo::Sub->new }
- is($destroyed, 1, "non-Moose destructor called");
- is($demolished, 1, "Moose destructor called");
-} 'Foo::Sub';
-
-done_testing;