Skip to content

Commit

Permalink
fixed failing tests
Browse files Browse the repository at this point in the history
  • Loading branch information
Mark Ellis committed Jun 12, 2014
1 parent 141ed2a commit 1ddb63b
Show file tree
Hide file tree
Showing 4 changed files with 7 additions and 3 deletions.
3 changes: 3 additions & 0 deletions Changes
Original file line number Diff line number Diff line change
@@ -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
Expand Down
1 change: 1 addition & 0 deletions MANIFEST.SKIP
Original file line number Diff line number Diff line change
Expand Up @@ -5,6 +5,7 @@
README\.md
MYMETA.*
MANIFEST\.SKIP
Makefile$
blib
\.tar\.gz
pm_to_blib
2 changes: 1 addition & 1 deletion lib/Exception/Simple.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Exception::Simple;
use strict;
use warnings;

our $VERSION = '1.000000';
our $VERSION = '1.000001';
$VERSION = eval $VERSION;

use overload(
Expand Down
4 changes: 2 additions & 2 deletions t/2_alias.t
Original file line number Diff line number Diff line change
Expand Up @@ -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");

Expand Down

0 comments on commit 1ddb63b

Please sign in to comment.