summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2009-09-27 18:47:49 -0500
committerJesse Luehrs <doy@tozt.net>2009-09-27 19:28:46 -0500
commitfc90be41451cb04f49abf540cca6fa2f64bac89c (patch)
tree56c1750afebefecf1c6ea75e6e2ecc9f4175f5d9 /t
parent30f4b57a1527abb1eb787e3512952243457a3b4b (diff)
downloadmoosex-nonmoose-fc90be41451cb04f49abf540cca6fa2f64bac89c.tar.gz
moosex-nonmoose-fc90be41451cb04f49abf540cca6fa2f64bac89c.zip
these tests are working now
Diffstat (limited to 't')
-rw-r--r--t/040-destructor.t4
1 files changed, 0 insertions, 4 deletions
diff --git a/t/040-destructor.t b/t/040-destructor.t
index 2900a15..f2c88be 100644
--- a/t/040-destructor.t
+++ b/t/040-destructor.t
@@ -21,13 +21,9 @@ sub DEMOLISH { $demolished++ }
package main;
{ Foo::Sub->new }
is($destroyed, 1, "non-Moose destructor called");
-{ local $TODO = "don't support destructors properly yet";
is($demolished, 1, "Moose destructor called");
-}
Foo::Sub->meta->make_immutable;
($destroyed, $demolished) = (0, 0);
{ Foo::Sub->new }
-{ local $TODO = "don't support destructors properly yet";
is($destroyed, 1, "non-Moose destructor called (immutable)");
-}
is($demolished, 1, "Moose destructor called (immutable)");