Allow skipping declarations by returning an empty list from the mangler

[perl/modules/Lexical-Types.git] / t / 10-args.t

diff --git a/t/10-args.t b/t/10-args.t
index dddcea9b446ced080c33303d3b19dc6ad60fc6dd..879dadd04deda260b7d1ad2e7f8ce52ae6436119 100644 (file)
--- 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;