|
Packit |
b7b64d |
#!/usr/bin/perl
|
|
Packit |
b7b64d |
|
|
Packit |
b7b64d |
use strict;
|
|
Packit |
b7b64d |
use warnings FATAL => 'all';
|
|
Packit |
b7b64d |
use Test::More tests => 4;
|
|
Packit |
b7b64d |
use Config;
|
|
Packit |
b7b64d |
use File::Spec::Functions qw/catfile/;
|
|
Packit |
b7b64d |
use ExtUtils::Helpers qw/man1_pagename man3_pagename/;
|
|
Packit |
b7b64d |
|
|
Packit |
b7b64d |
my %separator = (
|
|
Packit |
b7b64d |
MSWin32 => '.',
|
|
Packit |
b7b64d |
VMS => '__',
|
|
Packit |
b7b64d |
os2 => '.',
|
|
Packit |
b7b64d |
cygwin => '.',
|
|
Packit |
b7b64d |
);
|
|
Packit |
b7b64d |
my $sep = $separator{$^O} || '::';
|
|
Packit |
b7b64d |
|
|
Packit |
b7b64d |
is man1_pagename('script/foo'), "foo.$Config{man1ext}", 'man1_pagename';
|
|
Packit |
b7b64d |
|
|
Packit |
b7b64d |
is man3_pagename(catfile(qw/lib ExtUtils.pm/)), "ExtUtils.$Config{man3ext}", 'man3_pagename 1';
|
|
Packit |
b7b64d |
is man3_pagename(catfile(qw/lib ExtUtils Helpers.pm/)), join($sep, qw/ExtUtils Helpers./).$Config{man3ext}, 'man3_pagename 2';
|
|
Packit |
b7b64d |
is man3_pagename(catfile(qw/lib ExtUtils Helpers Unix.pm/)), join($sep, qw/ExtUtils Helpers Unix./).$Config{man3ext}, 'man3_pagename 3';
|