[SCM] libpackage-variant-perl Debian packaging branch, master, updated. debian/1.001003-1-16-g363631d

[Robert Sedlacek]

The following commit has been merged in the master branch:
commit 815b5be2c946367c4d74c815599ea9d706c0f5e3
Author: Robert Sedlacek <rs at 474.at>
Date:   Mon Nov 28 22:58:43 2011 +0100

    tests for array ref importing

diff --git a/t/01simple.t b/t/01simple.t
index 6cb6406..2d51873 100644
--- a/t/01simple.t
+++ b/t/01simple.t
@@ -61,4 +61,28 @@ is exception {
   is_deeply $renamed->args, [9..12], 'imported generator can be renamed';
 }, undef, 'no errors for renamed usage';
 
+my @imported;
+BEGIN {
+  package TestImportableA;
+  sub import { push @imported, shift }
+  $INC{'TestImportableA.pm'} = __FILE__;
+  package TestImportableB;
+  sub import { push @imported, shift }
+  $INC{'TestImportableB.pm'} = __FILE__;
+  package TestArrayImports;
+  use Package::Variant
+    importing => [
+      TestImportableA => undef,
+      TestImportableB => undef,
+    ];
+  sub make_variant { }
+  $INC{'TestArrayImports.pm'} = __FILE__;
+}
+
+use TestArrayImports;
+TestArrayImports(23);
+
+is_deeply [@imported], [qw( TestImportableA TestImportableB )],
+  'multiple imports in the right order';
+
 done_testing;

-- 
libpackage-variant-perl Debian packaging