diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-09-27 18:47:49 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-09-27 19:28:46 -0500 |
commit | fc90be41451cb04f49abf540cca6fa2f64bac89c (patch) | |
tree | 56c1750afebefecf1c6ea75e6e2ecc9f4175f5d9 | |
parent | 30f4b57a1527abb1eb787e3512952243457a3b4b (diff) | |
download | moosex-nonmoose-fc90be41451cb04f49abf540cca6fa2f64bac89c.tar.gz moosex-nonmoose-fc90be41451cb04f49abf540cca6fa2f64bac89c.zip |
these tests are working now
-rw-r--r-- | t/040-destructor.t | 4 |
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)"); |