Skip to content

Commit

Permalink
Remove todo's from test fixed by line nr fix in Devel::Declare
Browse files Browse the repository at this point in the history
  • Loading branch information
ashb committed Aug 4, 2009
1 parent 74287f2 commit 58723ca
Showing 1 changed file with 6 additions and 7 deletions.
13 changes: 6 additions & 7 deletions t/invalid.t
@@ -1,7 +1,7 @@
use strict;
use warnings;

use Test::More tests => 17;
use Test::More;
use Test::Exception;
use TryCatch;

Expand Down Expand Up @@ -30,8 +30,7 @@ catch
my $foo = 2;
EOC

$TODO = "Devel::Declare line number issue";
is($line, 4, "Error from line 4");
is($line, 5, "Error from line 5");

test_for_error(
qr/^Parameter expected near '\^' in '\^Err \$e' at \(eval \d+\) line (\d+)\b/,
Expand Down Expand Up @@ -76,7 +75,6 @@ try { } bar
catch {}
EOC
undef $TODO;
is($line, 3, "Error from line 3");

test_for_error(
Expand All @@ -101,10 +99,7 @@ catch (SomeRandomTC $e) {}
EOC

{
local $TODO = "Devel::Declare line number issue";
is($line, 4, "Error from line 4");
}

compile_ok("try is not too reserved", <<'EOC');
use TryCatch;
Expand All @@ -121,6 +116,7 @@ use TryCatch;
catch => 3;
EOC

{
local $TODO = 'Sort out POD';
compile_ok("POD doesn't interfer with things.", <<'EOC');
use TryCatch;
Expand All @@ -132,6 +128,9 @@ try {
=cut
EOC
}

done_testing;

sub test_for_error {
local $Test::Builder::Level = $Test::Builder::Level + 1;
Expand Down

0 comments on commit 58723ca

Please sign in to comment.