fixed failing tests

markwellis · Jun 12, 2014 · 1ddb63b · 1ddb63b
1 parent 141ed2a
commit 1ddb63b
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 3 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,8 @@
 Revision history for perl module Exception::Simple
 
+1.000001 2014-05-12
+    - Fixed failing test on *bsd systems
+
 1.000000 2014-05-08
     - added package alias option when importing
     - removed "at filename line n" from stringify method

diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP
@@ -5,6 +5,7 @@
 README\.md
 MYMETA.*
 MANIFEST\.SKIP
+Makefile$
 blib
 \.tar\.gz
 pm_to_blib
diff --git a/lib/Exception/Simple.pm b/lib/Exception/Simple.pm
@@ -2,7 +2,7 @@ package Exception::Simple;
 use strict;
 use warnings;
 
-our $VERSION = '1.000000';
+our $VERSION = '1.000001';
 $VERSION = eval $VERSION;
 
 use overload(

diff --git a/t/2_alias.t b/t/2_alias.t
@@ -36,12 +36,12 @@ subtest 'redefine sub' => sub {
         #can't "use" as that's done at compile time
         Exception::Simple->import( qw/E/ );
     } 'redefine dies';
-    is( $@, "sub E already exists in main at t/2_alias.t line 37.\n", 'error correct' );
+    like( $@, qr!sub E already exists in main at t/2_alias\.t line 37!, 'error correct' );
 
     dies_ok{
         Exception::Simple->import( qw/dont_replace_me/ );
     } 'redefine dies';
-    is( $@, "sub dont_replace_me already exists in main at t/2_alias.t line 42.\n", 'error correct' );
+    like( $@, qr!sub dont_replace_me already exists in main at t/2_alias\.t line 42!, 'error correct' );
 
     is( dont_replace_me(), 1, "sub wasn't replaced");