Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Spec/t/crossplatform.t

Lines Matching refs:module
29   my $module = "File::Spec::$platform";
33     eval "require $module; 1";
35     skip "Can't load $module", $tests_per_platform
51     $base = $module->catpath($v, $module->catdir('', 'foo'), '');
52     $base = $module->catdir($module->rootdir, 'foo');
54     is $module->file_name_is_absolute($base), 1, "$base is absolute on $platform";
58     $file = $module->catpath($v, $module->catdir($module->rootdir, 'foo', 'bar'), 'file');
59     $base = $module->catpath($v, $module->catdir($module->rootdir, 'foo'), '');
60     $result = $module->catfile('bar', 'file');
61     is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
64     $base = $module->catpath($other_v, $module->catdir($module->rootdir, 'foo'), '');
65     $result = volumes_differ($module, $file, $base) ? $file : $module->catfile('bar', 'file');
66     is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
69     $base = $module->catpath('', $module->catdir($module->rootdir, 'foo'), '');
70     $result = volumes_differ($module, $file, $base) ? $file : $module->catfile('bar', 'file');
71     is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
74     $file = $module->catpath('', $module->catdir($module->rootdir, 'foo', 'bar'), 'file');
75     $base = $module->catpath($v, $module->catdir($module->rootdir, 'foo'), '');
76     $result = volumes_differ($module, $file, $base) ? $file : $module->catfile('bar', 'file');
77     is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
80     $base = $module->catpath($other_v, $module->catdir($module->rootdir, 'foo'), '');
81     $result = volumes_differ($module, $file, $base) ? $file : $module->catfile('bar', 'file');
82     is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
85     $base = $module->catpath('', $module->catdir($module->rootdir, 'foo'), '');
86     $result = $module->catfile('bar', 'file');
87     is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
92   my ($module, $one, $two) = @_;
93   my ($one_v) = $module->splitpath( $module->rel2abs($one) );
94   my ($two_v) = $module->splitpath( $module->rel2abs($two) );