diff options
Diffstat (limited to 't/001-basic.t')
| -rw-r--r-- | t/001-basic.t | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/t/001-basic.t b/t/001-basic.t index bae0cc0..44a68dd 100644 --- a/t/001-basic.t +++ b/t/001-basic.t @@ -27,7 +27,5 @@ my $foosub; lives_ok { $foosub = Foo::Sub1->new } 'instantiating concrete subclasses works'; isa_ok($foosub, 'Foo', 'inheritance is correct'); -TODO: { - local $TODO = "constructor stuff isn't done yet"; - dies_ok { Foo->new } 'instantiating abstract classes fails'; -} +throws_ok { Foo->new } qr/Foo is abstract, it cannot be instantiated/, + 'instantiating abstract classes fails'; |