lib/FindBin.t

   1 #!./perl
   2
   3 BEGIN {
   4     # Can't chdir in BEGIN before FindBin runs, as it then can't find us.
   5     @INC = -d 't' ? 'lib' : '../lib';
   6 }
   7
   8 print "1..2\n";
   9
  10 use FindBin qw($Bin);
  11
  12 print "# $Bin\n";
  13 print "not " unless $Bin =~ m,[/.]lib\]?$,;
  14 print "ok 1\n";
  15
  16 $0 = "-";
  17 FindBin::again();
  18
  19 print "not " if $FindBin::Script ne "-";
  20 print "ok 2\n";