t/23-leaner-import.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::Leaner;
   7
   8 use VPIT::TestHelpers;
   9
  10 load_or_skip_all 'Cwd', undef, [ 'abs_path' ];
  11
  12 plan tests => 1;
  13
  14 my $result = do {
  15  local $@;
  16  eval 'abs_path $^X';
  17 };
  18
  19 my $expected = do {
  20  require Cwd;
  21  Cwd::abs_path($^X);
  22 };
  23
  24 is $result, $expected, 'Cwd::abs_path() was imported into main';