Commit | Line | Data |
c7a17d47 |
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 |
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 |
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 | |
5b3e00df |
37 | is ($ExtUtils::MM_Unix::VERSION, '1.12605', 'Should be that version'); |
c7a17d47 |
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 | |