vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libfile-which-perl/libfile-which-perl-0.05/t/all.t

   1
   2 use Test;
   3 BEGIN { plan tests => 3 }
   4 use File::Which qw(which where);
   5
   6 # So let's try using test-bin, huh?
   7
   8 my $Is_VMS    = ($^O eq 'VMS');
   9 my $Is_MacOS  = ($^O eq 'MacOS');
  10 my $Is_DOSish = (($^O eq 'MSWin32') or
  11                 ($^O eq 'dos')     or
  12                 ($^O eq 'os2'));
  13 my $Is_Cygwin = $^O eq 'cygwin';
  14
  15 {
  16   chdir 't' if (-d 't');
  17   local $ENV{PATH} = 'test-bin';
  18
  19   if (not ($Is_VMS or $Is_MacOS or $Is_DOSish)) { # dunno about VMS
  20       chmod 0755, "test-bin/all";
  21   }
  22
  23   my @result = which('all');
  24   ok($result[0], qr/all/i);
  25   ok(@result > 0, 1);
  26   ok(scalar @result, scalar where('all')); # should have as many elements.
  27
  28 }