From 9521ec78c2fa5aeba53578f0bc94300d0abc8f8a Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 8 Nov 2010 21:59:58 -0600
Subject: convert to Test::Fatal, and actually dep on it

---
 t/52-hashref-constructor.t | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 't/52-hashref-constructor.t')

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)");
-- 
cgit v1.2.3-54-g00ecf