X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-args.t;h=879dadd04deda260b7d1ad2e7f8ce52ae6436119;hb=7cff22e4b5498f801c1d9be1dcab213a39395d0a;hp=dddcea9b446ced080c33303d3b19dc6ad60fc6dd;hpb=06cb3f3506161a118dc440264dcabcd612b9432c;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/t/10-args.t b/t/10-args.t
index dddcea9..879dadd 100644
--- a/t/10-args.t
+++ b/t/10-args.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 11 + 6;
+use Test::More tests => 12 + 6;
 
 {
  package Lexical::Types::Test::LTT;
@@ -47,6 +47,12 @@ use Test::More tests => 11 + 6;
  is $x, __LINE__-1, 'as => string, with trailing ::';
 }
 
+{
+ use Lexical::Types as => sub { return };
+ my LTT $x;
+ is $x, undef, 'as => code, returning nothing';
+}
+
 {
  use Lexical::Types as => sub { 'Lexical::Types::Test::LTT' };
  my LTT $x;