From fc90be41451cb04f49abf540cca6fa2f64bac89c Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sun, 27 Sep 2009 18:47:49 -0500 Subject: these tests are working now --- t/040-destructor.t | 4 ---- 1 file changed, 4 deletions(-) (limited to 't') 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)"); -- cgit v1.2.3