1 print "1.." . lasttest() . "\n";
5 print "not " unless -d $cwd;
8 $lpb = Cwd::extLibpath;
10 $lpb .= ';' unless $lpb and $lpb =~ /;$/;
12 $lpe = Cwd::extLibpath(1);
14 $lpe .= ';' unless $lpe and $lpe =~ /;$/;
16 Cwd::extLibpath_set("$lpb$cwd") or print "not ";
19 $lpb = Cwd::extLibpath;
22 ($s_cwd = $cwd) =~ s#\\#/#g;
24 print "not " unless $lpb =~ /\Q$s_cwd/;
27 Cwd::extLibpath_set("$lpe$cwd", 1) or print "not ";
30 $lpe = Cwd::extLibpath(1);
34 print "not " unless $lpe =~ /\Q$s_cwd/;
39 @l = OS2::Process::process_entry();
40 print "not " unless @l == 11;
44 print "not " unless $l[9] == 1 or $l[9] == 2;
47 print "# $_\n" for @l;