is($map->as_string(), $cmp_typemap_str, "Simple typemap matches reference file");
my $tmpdir = File::Temp::tempdir(CLEANUP => 1, TMPDIR => 1);
-my $tmpfile = File::Spec->catdir($tmpdir, 'simple.typemap');
+my $tmpfile = File::Spec->catfile($tmpdir, 'simple.typemap');
$map->write(file => $tmpfile);
is($map->as_string(), slurp($tmpfile), "Simple typemap write matches as_string");
{
name => 'Simple conflict',
local_maps => [
- File::Spec->catdir($path_prefix, "conflicting.typemap"),
+ File::Spec->catfile($path_prefix, "conflicting.typemap"),
],
std_maps => [
- File::Spec->catdir($path_prefix, "other.typemap"),
+ File::Spec->catfile($path_prefix, "other.typemap"),
],
},
{
name => 'B',
local_maps => [
- File::Spec->catdir($path_prefix, "b.typemap"),
+ File::Spec->catfile($path_prefix, "b.typemap"),
],
std_maps => [],
},
{
name => 'B and perl',
local_maps => [
- File::Spec->catdir($path_prefix, "b.typemap"),
+ File::Spec->catfile($path_prefix, "b.typemap"),
],
std_maps => [
- File::Spec->catdir($path_prefix, "perl.typemap"),
+ File::Spec->catfile($path_prefix, "perl.typemap"),
],
},
{
name => 'B and perl and B again',
local_maps => [
- File::Spec->catdir($path_prefix, "b.typemap"),
+ File::Spec->catfile($path_prefix, "b.typemap"),
],
std_maps => [
- File::Spec->catdir($path_prefix, "perl.typemap"),
- File::Spec->catdir($path_prefix, "b.typemap"),
+ File::Spec->catfile($path_prefix, "perl.typemap"),
+ File::Spec->catfile($path_prefix, "b.typemap"),
],
},
);