t/debugger.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5 use Test::Fatal;
   6
   7 BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
   8
   9 use Eval::Closure;
  10
  11 unlike(
  12     exception {
  13         eval_closure(
  14             source      => 'sub { $bar }',
  15             description => 'foo',
  16         )
  17     },
  18     qr/#line/,
  19     "#line directive isn't added when debugger is active"
  20 );
  21
  22
  23 done_testing;