Commit | Line | Data |
---|---|---|
c7a17d47 T |
1 | #!./perl -w |
2 | ||
3 | # 2001-12-16 Tels first version | |
4 | ||
5 | BEGIN { | |
6 | chdir 't' if -d 't'; | |
7 | @INC = '../lib'; | |
8 | } | |
9 | ||
87a750c3 JH |
10 | BEGIN { |
11 | use Test::More; | |
12 | ||
13 | if( $^O =~ /^VMS|os2|MacOS|MSWin32|cygwin$/ ) { | |
14 | plan skip_all => 'Non-Unix platform'; | |
15 | } | |
16 | else { | |
17 | plan tests => 90; | |
18 | } | |
19 | } | |
c7a17d47 T |
20 | |
21 | BEGIN { use_ok( 'ExtUtils::MM_Unix' ); } | |
22 | ||
23 | use strict; | |
24 | use File::Spec; | |
25 | ||
26 | my $class = 'ExtUtils::MM_Unix'; | |
27 | ||
28 | # only one of the following can be true | |
29 | # test should be removed if MM_Unix ever stops handling other OS than Unix | |
30 | my $os = ($ExtUtils::MM_Unix::Is_OS2 || 0) | |
31 | + ($ExtUtils::MM_Unix::Is_Mac || 0) | |
32 | + ($ExtUtils::MM_Unix::Is_Win32 || 0) | |
33 | + ($ExtUtils::MM_Unix::Is_Dos || 0) | |
34 | + ($ExtUtils::MM_Unix::Is_VMS || 0); | |
35 | ok ( $os <= 1, 'There can be only one (or none)'); | |
36 | ||
37 | is ($ExtUtils::MM_Unix::VERSION, '1.12604', 'Should be that version'); | |
38 | ||
39 | # when the following calls like canonpath, catdir etc are replaced by | |
40 | # File::Spec calls, the test's become a bit pointless | |
41 | ||
42 | foreach ( qw( xx/ ./xx/ xx/././xx xx///xx) ) | |
43 | { | |
44 | is ($class->canonpath($_), File::Spec->canonpath($_), "canonpath $_"); | |
45 | } | |
46 | ||
47 | is ($class->catdir('xx','xx'), File::Spec->catdir('xx','xx'), | |
48 | 'catdir(xx, xx) => xx/xx'); | |
49 | is ($class->catfile('xx','xx','yy'), File::Spec->catfile('xx','xx','yy'), | |
50 | 'catfile(xx, xx) => xx/xx'); | |
51 | ||
52 | foreach (qw/updir curdir rootdir/) | |
53 | { | |
54 | is ($class->$_(), File::Spec->$_(), $_ ); | |
55 | } | |
56 | ||
57 | foreach ( qw / | |
58 | c_o | |
59 | clean | |
60 | const_cccmd | |
61 | const_config | |
62 | const_loadlibs | |
63 | constants | |
64 | depend | |
65 | dir_target | |
66 | dist | |
67 | dist_basics | |
68 | dist_ci | |
69 | dist_core | |
70 | dist_dir | |
71 | dist_test | |
72 | dlsyms | |
73 | dynamic | |
74 | dynamic_bs | |
75 | dynamic_lib | |
76 | exescan | |
77 | export_list | |
78 | extliblist | |
79 | file_name_is_absolute | |
80 | find_perl | |
81 | fixin | |
82 | force | |
83 | guess_name | |
84 | has_link_code | |
85 | htmlifypods | |
86 | init_dirscan | |
87 | init_main | |
88 | init_others | |
89 | install | |
90 | installbin | |
91 | libscan | |
92 | linkext | |
93 | lsdir | |
94 | macro | |
95 | makeaperl | |
96 | makefile | |
97 | manifypods | |
98 | maybe_command | |
99 | maybe_command_in_dirs | |
100 | needs_linking | |
101 | nicetext | |
102 | parse_version | |
103 | pasthru | |
104 | path | |
105 | perl_archive | |
106 | perl_archive_after | |
107 | perl_script | |
108 | perldepend | |
109 | pm_to_blib | |
110 | post_constants | |
111 | post_initialize | |
112 | postamble | |
113 | ppd | |
114 | prefixify | |
115 | processPL | |
116 | quote_paren | |
117 | realclean | |
118 | replace_manpage_separator | |
119 | static | |
120 | static_lib | |
121 | staticmake | |
122 | subdir_x | |
123 | subdirs | |
124 | test | |
125 | test_via_harness | |
126 | test_via_script | |
127 | tool_autosplit | |
128 | tool_xsubpp | |
129 | tools_other | |
130 | top_targets | |
131 | writedoc | |
132 | xs_c | |
133 | xs_cpp | |
134 | xs_o | |
135 | xsubpp_version | |
136 | / ) | |
137 | { | |
138 | ok ($class->can ($_), "can $_"); | |
139 | } | |
140 | ||
141 |