X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F11-args.t;h=695d6c9ad04e895af97886b55a72a35c3546245f;hb=ca4e18860e8ac0d9754f933838673af82ca02b27;hp=eefa32eb06afa6b5beb80d9db91fe8a460af6561;hpb=ad9c7ed2b44bcd7a122d716fc7a358ae645ee6da;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/t/11-args.t b/t/11-args.t
index eefa32e..695d6c9 100644
--- a/t/11-args.t
+++ b/t/11-args.t
@@ -10,6 +10,7 @@ use Test::More tests => 14 + 6;
 
  sub TYPEDSCALAR {
   $_[1] = (caller(0))[2];
+  local $Test::Builder::Level = $Test::Builder::Level + 1;
   Test::More::is($_[2], 'LTT', 'original type is ok');
   ();
  }
@@ -87,7 +88,7 @@ use Test::More tests => 14 + 6;
  my $expect = qr/^Invalid ARRAY reference/;
  local $@;
  eval q[
-  use Lexical::Types as => [ qw/a b c/ ];
+  use Lexical::Types as => [ qw<a b c> ];
   my LTT $x;
  ];
  like $@, $expect, 'as => array';
@@ -98,7 +99,7 @@ use Test::More tests => 14 + 6;
  diag 'This will throw two warnings' if $] >= 5.008008 and $] < 5.009;
  local $@;
  eval q[
-  use Lexical::Types as => sub { qw/a b c/ };
+  use Lexical::Types as => sub { qw<a b c> };
   my LTT $x;
  ];
  like $@, $expect, 'as => code, returning three scalars';
@@ -126,7 +127,7 @@ use Test::More tests => 14 + 6;
 }
 
 {
- my $expect = qr/^coconut at \Q$0\E line 30/;
+ my $expect = qr/^coconut at \Q$0\E line 31/;
  local $@;
  eval q[
   use Lexical::Types;