diff options
Diffstat (limited to 't/040-destructor.t')
-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)"); |