diff options
Diffstat (limited to 't/error.t')
-rw-r--r-- | t/error.t | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/t/error.t b/t/error.t new file mode 100644 index 0000000..08a478a --- /dev/null +++ b/t/error.t @@ -0,0 +1,33 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +my $got_code; +BEGIN { + package My::Parser; + use Exporter 'import'; + our @EXPORT = 'foo'; + use Parse::Keyword { foo => \&parse_foo }; + + sub foo {} + sub parse_foo { + lex_read_space; + my $code = parse_block; + $got_code = $code ? 1 : 0; + return sub {}; + } + + $INC{'My/Parser.pm'} = __FILE__; +} + +use My::Parser; + +eval "foo"; +ok($@); +ok(!$got_code); +eval "foo { }"; +ok(!$@); +ok($got_code); + +done_testing; |