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