Add some tests

[perl/modules/VPIT-TestHelpers.git] / t / 23-leaner-import.t

diff --git a/t/23-leaner-import.t b/t/23-leaner-import.t
new file mode 100644 (file)
index 0000000..8179206
--- /dev/null
+++ b/t/23-leaner-import.t
@@ -0,0 +1,24 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::Leaner;
+
+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';