Lines Matching refs:module
30 my $module = "File::Spec::$platform";
34 eval "require $module; 1";
36 skip "Can't load $module", $tests_per_platform
54 $base = $module->catpath($v, $module->catdir('', 'foo'), '');
55 $base = $module->catdir($module->rootdir, 'foo');
57 is $module->file_name_is_absolute($base), 1, "$base is absolute on $platform";
61 $file = $module->catpath($v, $module->catdir($module->rootdir, 'foo', 'bar'), 'file');
62 $base = $module->catpath($v, $module->catdir($module->rootdir, 'foo'), '');
63 $result = $module->catfile('bar', 'file');
64 is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
67 $base = $module->catpath($other_v, $module->catdir($module->rootdir, 'foo'), '');
68 $result = volumes_differ($module, $file, $base) ? $file : $module->catfile('bar', 'file');
69 is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
72 $base = $module->catpath('', $module->catdir($module->rootdir, 'foo'), '');
73 $result = volumes_differ($module, $file, $base) ? $file : $module->catfile('bar', 'file');
74 is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
77 $file = $module->catpath('', $module->catdir($module->rootdir, 'foo', 'bar'), 'file');
78 $base = $module->catpath($v, $module->catdir($module->rootdir, 'foo'), '');
79 $result = volumes_differ($module, $file, $base) ? $module->rel2abs($file) : $module->catfile('bar', 'file');
80 is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
83 $base = $module->catpath($other_v, $module->catdir($module->rootdir, 'foo'), '');
84 $result = volumes_differ($module, $file, $base) ? $module->rel2abs($file) : $module->catfile('bar', 'file');
85 is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
88 $base = $module->catpath('', $module->catdir($module->rootdir, 'foo'), '');
89 $result = $module->catfile('bar', 'file');
90 is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
95 my ($module, $one, $two) = @_;
96 my ($one_v) = $module->splitpath( $module->rel2abs($one) );
97 my ($two_v) = $module->splitpath( $module->rel2abs($two) );