diff options
Diffstat (limited to 't/10-errors.t')
-rw-r--r-- | t/10-errors.t | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/t/10-errors.t b/t/10-errors.t index e724e78..905d6c8 100644 --- a/t/10-errors.t +++ b/t/10-errors.t @@ -52,4 +52,16 @@ like( "gives us compile errors properly" ); +like( + exception { eval_closure(source => 'sub { $x }') }, + qr/sub \s* { \s* \$x \s* }/x, + "without terse_error, includes the source code" +); + +unlike( + exception { eval_closure(source => 'sub { $x }', terse_error => 1) }, + qr/sub \s* { \s* \$x \s* }/x, + "with terse_error, does not include the source code" +); + done_testing; |