Add a terse_error parameter to eval_closure

[gitmo/Eval-Closure.git] / t / 10-errors.t

diff --git a/t/10-errors.t b/t/10-errors.t
index e724e78..905d6c8 100644 (file)
--- 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;