diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-11-08 21:59:58 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-11-08 21:59:58 -0600 |
| commit | 9521ec78c2fa5aeba53578f0bc94300d0abc8f8a (patch) | |
| tree | 59d0bcf4e41d533f1f585702436b61d7020320b8 /t/52-hashref-constructor.t | |
| parent | 36fb7f594d2e8249ca656725922e3118e6458153 (diff) | |
| download | moosex-nonmoose-9521ec78c2fa5aeba53578f0bc94300d0abc8f8a.tar.gz moosex-nonmoose-9521ec78c2fa5aeba53578f0bc94300d0abc8f8a.zip | |
convert to Test::Fatal, and actually dep on it
Diffstat (limited to 't/52-hashref-constructor.t')
| -rw-r--r-- | t/52-hashref-constructor.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/52-hashref-constructor.t b/t/52-hashref-constructor.t index 74fd530..00deff0 100644 --- a/t/52-hashref-constructor.t +++ b/t/52-hashref-constructor.t @@ -2,7 +2,7 @@ use strict; use warnings; use Test::More; -use Test::Exception; +use Test::Fatal; { package Foo; @@ -47,8 +47,8 @@ use Test::Exception; { my $baz; - lives_ok { $baz = Baz->new( foo => 1, bar => 2, baz => 3 ) } - "constructor lives"; + is(exception { $baz = Baz->new( foo => 1, bar => 2, baz => 3 ) }, undef, + "constructor lives"); is($baz->foo, 1, "foo set"); is($baz->bar, 2, "bar set"); is($baz->baz, 3, "baz set"); @@ -57,8 +57,8 @@ use Test::Exception; { my $baz; - lives_ok { $baz = Baz->new({foo => 1, bar => 2, baz => 3}) } - "constructor lives (hashref)"; + is(exception { $baz = Baz->new({foo => 1, bar => 2, baz => 3}) }, undef, + "constructor lives (hashref)"); is($baz->foo, 1, "foo set (hashref)"); is($baz->bar, 2, "bar set (hashref)"); is($baz->baz, 3, "baz set (hashref)"); |