From: Tomas Doran <bobtfish@bobtfish.net>
Date: Tue, 22 Mar 2011 09:15:22 +0000 (+0000)
Subject: Fix RT#65907: missing build require: Test::Exception
X-Git-Tag: 1.32~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bc750d3b259bace9fb67c9afd8cd8be585d04c26;hp=df7bca1d7570f88a9b68a4b8bff7dcaacb97d82f;p=catagits%2FCatalyst-Devel.git

Fix RT#65907: missing build require: Test::Exception
---

diff --git a/Changes b/Changes
index 50bfc40..ca0c788 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 This file documents the revision history for Perl extension Catalyst-Devel.
 
+        - Fix RT#65907: missing build require: Test::Exception
+
 1.31 2011-01-20 01:08:00
         - Fix for copying generated files into installed apps + tests
           to ensure it keeps working. abraxxa++
diff --git a/Makefile.PL b/Makefile.PL
index 14d3b08..c7ddfa5 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -34,6 +34,7 @@ author_requires 'Module::Info';
 author_requires 'File::Find::Rule';
 
 test_requires 'Test::More' => '0.94';
+test_requires 'Test::Fatal' => '0.003';
 
 install_share 'share';
 
diff --git a/t/get_sharedir_file.t b/t/get_sharedir_file.t
index f2a68ad..221e939 100644
--- a/t/get_sharedir_file.t
+++ b/t/get_sharedir_file.t
@@ -1,20 +1,20 @@
 use strict;
 use warnings;
 
-use Test::More;
-use Test::Exception;
+use Test::More 0.88;
+use Test::Fatal;
 
 use Catalyst::Helper;
 
 my $i = bless {}, 'Catalyst::Helper';
 
-throws_ok {
+like exception {
     $i->get_sharedir_file(qw/does not exist and hopefully never will or we are
         totally screwed.txt/);
-} qr/Cannot find/, 'Exception for file not found from ->get_sharedir_file';
+}, qr/Cannot find/, 'Exception for file not found from ->get_sharedir_file';
 
-lives_ok {
+is exception {
     ok($i->get_sharedir_file('Makefile.PL.tt'), 'has contents');
-} 'Can get_sharedir_file';
+}, undef, 'Can get_sharedir_file';
 
 done_testing;