summaryrefslogtreecommitdiffstats
path: root/t/debugger.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2011-08-01 23:27:34 -0500
committerJesse Luehrs <doy@tozt.net>2011-08-01 23:27:34 -0500
commit7fdc514fb2d9768b3d38d078cf24d9d03403539b (patch)
treee479a548f1c1c73e2a8082b36386aff5460469c3 /t/debugger.t
parent1a2acf758e0e3bcd0694753469d237ebc356e8c1 (diff)
downloadeval-closure-7fdc514fb2d9768b3d38d078cf24d9d03403539b.tar.gz
eval-closure-7fdc514fb2d9768b3d38d078cf24d9d03403539b.zip
remove test numbers
Diffstat (limited to 't/debugger.t')
-rw-r--r--t/debugger.t23
1 files changed, 23 insertions, 0 deletions
diff --git a/t/debugger.t b/t/debugger.t
new file mode 100644
index 0000000..7b97272
--- /dev/null
+++ b/t/debugger.t
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use Test::Fatal;
+
+BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
+
+use Eval::Closure;
+
+unlike(
+ exception {
+ eval_closure(
+ source => 'sub { $bar }',
+ description => 'foo',
+ )
+ },
+ qr/#line/,
+ "#line directive isn't added when debugger is active"
+);
+
+
+done_testing;