Lines Matching full:module
59 my $module = "File::Spec::$platform";
63 eval "require $module; 1";
65 skip "Can't load $module", $tests_per_platform
83 $base = $module->catpath($v, $module->catdir('', 'foo'), '');
84 $base = $module->catdir($module->rootdir, 'foo');
86 is $module->file_name_is_absolute($base), 1, "$base is absolute on $platform";
89 my @result = $module->splitdir('');
93 $result = $module->canonpath();
97 $result = $module->canonpath(undef);
101 $file = $module->catpath($v, $module->catdir($module->rootdir, 'foo', 'bar'), 'file');
102 $base = $module->catpath($v, $module->catdir($module->rootdir, 'foo'), '');
103 $result = $module->catfile('bar', 'file');
116 is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
120 $base = $module->catpath($other_v, $module->catdir($module->rootdir, 'foo'), '');
121 $result = volumes_differ($module, $file, $base) ? $file : $module->catfile('bar', 'file');
122 is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
126 $base = $module->catpath('', $module->catdir($module->rootdir, 'foo'), '');
127 $result = volumes_differ($module, $file, $base) ? $file : $module->catfile('bar', 'file');
128 is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
132 $file = $module->catpath('', $module->catdir($module->rootdir, 'foo', 'bar'), 'file');
133 $base = $module->catpath($v, $module->catdir($module->rootdir, 'foo'), '');
134 …$result = volumes_differ($module, $file, $base) ? $module->rel2abs($file) : $module->catfile('bar'…
143 is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
147 $base = $module->catpath($other_v, $module->catdir($module->rootdir, 'foo'), '');
148 …$result = volumes_differ($module, $file, $base) ? $module->rel2abs($file) : $module->catfile('bar'…
157 is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
161 $base = $module->catpath('', $module->catdir($module->rootdir, 'foo'), '');
162 $result = $module->catfile('bar', 'file');
164 is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
169 my ($module, $one, $two) = @_;
170 my ($one_v) = $module->splitpath( $module->rel2abs($one) );
171 my ($two_v) = $module->splitpath( $module->rel2abs($two) );