Support one-parameter unpack(), which unpacks $_.
[perl.git] / os2 / os2_base.t
1 #!/usr/bin/perl -w
2 BEGIN {
3     chdir 't' if -d 't';
4     @INC = '../lib';
5 }
6
7 use Test::More tests => 19;
8 use strict;
9 use Config;
10
11 my $cwd = Cwd::sys_cwd();
12 ok -d $cwd;
13
14 my $lpb = Cwd::extLibpath;
15 $lpb .= ';' unless $lpb and $lpb =~ /;$/;
16
17 my $lpe = Cwd::extLibpath(1);
18 $lpe .= ';' unless $lpe and $lpe =~ /;$/;
19
20 ok Cwd::extLibpath_set("$lpb$cwd");
21
22 $lpb = Cwd::extLibpath;
23 $lpb =~ s#\\#/#g;
24 (my $s_cwd = $cwd) =~ s#\\#/#g;
25
26 like($lpb, qr/\Q$s_cwd/);
27
28 ok Cwd::extLibpath_set("$lpe$cwd", 1);
29
30 $lpe = Cwd::extLibpath(1);
31 $lpe =~ s#\\#/#g;
32
33 like($lpe, qr/\Q$s_cwd/);
34
35 is(uc OS2::DLLname(1), uc $Config{dll_name});
36 like(OS2::DLLname, qr#\Q/$Config{dll_name}\E\.dll$#i );
37 (my $root_cwd = $s_cwd) =~ s,/t$,,;
38 like(OS2::DLLname, qr#^\Q$root_cwd\E(/t)?\Q/$Config{dll_name}\E\.dll#i );
39 is(OS2::DLLname, OS2::DLLname(2));
40 like(OS2::DLLname(0), qr#^(\d+)$# );
41
42
43 is(OS2::DLLname($_), OS2::DLLname($_, \&Cwd::extLibpath) ) for 0..2;
44 ok(not defined eval { OS2::DLLname $_, \&Cwd::cwd; 1 } ) for 0..2;
45 ok(not defined eval { OS2::DLLname $_, \&xxx; 1 } ) for 0..2;