More standard library test scripts
[perl.git] / t / lib / findbin.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6 }
7
8 print "1..1\n";
9
10 use FindBin qw($Bin);
11
12 print "not " unless $Bin =~ m,t/lib$,;
13 print "ok 1\n";