summaryrefslogtreecommitdiffstats
path: root/t/10-errors.t
diff options
context:
space:
mode:
Diffstat (limited to 't/10-errors.t')
-rw-r--r--t/10-errors.t12
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;