X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F13-more-import.t;fp=t%2F13-more-import.t;h=2dedf59c29aa4003aef4b2d81619c2165c806b0b;hb=e8344578d5e1adee2159ae5490719996d6834bdb;hp=0000000000000000000000000000000000000000;hpb=04f59576053a0b9680c11ad6353d9f6d88bb1107;p=perl%2Fmodules%2FVPIT-TestHelpers.git

diff --git a/t/13-more-import.t b/t/13-more-import.t
new file mode 100644
index 0000000..2dedf59
--- /dev/null
+++ b/t/13-more-import.t
@@ -0,0 +1,24 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use VPIT::TestHelpers;
+
+load_or_skip_all 'Cwd', undef, [ 'abs_path' ];
+
+plan tests => 1;
+
+my $result = do {
+ local $@;
+ eval 'abs_path $^X';
+};
+
+my $expected = do {
+ require Cwd;
+ Cwd::abs_path($^X);
+};
+
+is $result, $expected, 'Cwd::abs_path() was imported into main';