Commit | Line | Data |
35bc1fdc |
1 | print "1.." . lasttest() . "\n"; |
2 | |
3 | $cwd = Cwd::sys_cwd(); |
4 | print "ok 1\n"; |
5 | print "not " unless -d $cwd; |
6 | print "ok 2\n"; |
7 | |
8 | $lpb = Cwd::extLibpath; |
9 | print "ok 3\n"; |
10 | $lpb .= ';' unless $lpb and $lpb =~ /;$/; |
11 | |
12 | $lpe = Cwd::extLibpath(1); |
13 | print "ok 4\n"; |
14 | $lpe .= ';' unless $lpe and $lpe =~ /;$/; |
15 | |
16 | Cwd::extLibpath_set("$lpb$cwd") or print "not "; |
17 | print "ok 5\n"; |
18 | |
19 | $lpb = Cwd::extLibpath; |
20 | print "ok 6\n"; |
21 | $lpb =~ s#\\#/#g; |
22 | ($s_cwd = $cwd) =~ s#\\#/#g; |
23 | |
24 | print "not " unless $lpb =~ /\Q$s_cwd/; |
25 | print "ok 7\n"; |
26 | |
27 | Cwd::extLibpath_set("$lpe$cwd", 1) or print "not "; |
28 | print "ok 8\n"; |
29 | |
30 | $lpe = Cwd::extLibpath(1); |
31 | print "ok 9\n"; |
32 | $lpe =~ s#\\#/#g; |
33 | |
34 | print "not " unless $lpe =~ /\Q$s_cwd/; |
35 | print "ok 10\n"; |
36 | |
37 | unshift @INC, 'lib'; |
38 | require OS2::Process; |
39 | @l = OS2::Process::process_entry(); |
40 | print "not " unless @l == 11; |
41 | print "ok 11\n"; |
42 | |
43 | # 1: FS 2: Window-VIO |
44 | print "not " unless $l[9] == 1 or $l[9] == 2; |
45 | print "ok 12\n"; |
46 | |
47 | print "# $_\n" for @l; |
48 | |
49 | sub lasttest {12} |