import perl 5.16.3 from CPAN - worked on by Andrew Fresh and myself

3 files changed, 102 insertions, 0 deletions

diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/t/load.t b/gnu/usr.bin/perl/cpan/Pod-Perldoc/t/load.t
new file mode 100644
index 00000000000..936f8a4d211
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/t/load.t
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+
+use Test::More;
+
+my @classes = ('Pod::Perldoc', map { "Pod::Perldoc::$_" } qw(
+    BaseTo       ToChecker    ToNroff      ToRtf        
+    GetOptsOO    ToMan        ToPod        ToText       ToXml
+    ToANSI       ToTerm
+) );
+
+if( eval { require Tk; require Tk::Pod; 1 } ) { push @classes, 'Pod::Perldoc::ToTk' }
+else {
+	note "Skip testing Pod::Perldoc::ToTk because there's no Tk";
+	}
+
+plan tests => scalar @classes;
+
+foreach my $class ( @classes ) {
+	require_ok( $class );
+	my $version = do { no strict 'refs'; ${ '$' . $class . '::VERSION' } };
+	note( "$class $version" ) if defined $version
+	}
diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/t/man/_get_columns.t b/gnu/usr.bin/perl/cpan/Pod-Perldoc/t/man/_get_columns.t
new file mode 100644
index 00000000000..e2f870bc262
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/t/man/_get_columns.t
@@ -0,0 +1,68 @@
+use Test::More;
+use strict;
+use warnings;
+
+{
+package Local::ToMan;
+use base 'Pod::Perldoc::ToMan';
+use vars qw( $stty_text $is_linux $warning );
+no warnings 'redefine';
+no strict 'refs';
+sub _get_stty { $stty_text }
+sub is_linux { $is_linux }
+sub warn { shift; $warning = join '', @_ }
+}
+
+BEGIN {
+our @columns = qw( EXPECTED IS_LINUX MANWIDTH MANWIDTH_EXPECTED STTY STTY_EXPECTED );
+foreach my $i ( 0 .. $#columns ) {
+	no strict 'refs';
+	*{"$columns[$i]"} = sub () { $i };
+	}
+}
+
+my @tests = (
+    # for linux, choose between manwidth and stty
+	[ 62, 1, undef,  0, "; 62 columns;", 62 ],
+	[ 63, 1, undef,  0, "columns 63",    63 ],	
+	[ 57, 1, 57,    57, "columns 63",    63 ],
+	[ 73, 1, undef,  0, " ",              0 ],
+
+    # for not linux, the same
+	[ 62, 0, undef,  0, "; 62 columns;", 62 ],
+	[ 63, 0, undef,  0, "columns 63",    63 ],	
+	[ 57, 0, 57,    57, "columns 63",    63 ],
+	[ 73, 0, undef,  0, " ",              0 ],
+
+	# bad manwidths	
+	[ 62, 1, -1,     0, "; 62 columns;", 62 ],
+	[ 63, 1, 'abc',  0, "columns 63",    63 ],	
+	[ 64, 1, '',     0, "columns 64",    64 ],
+	[ 73, 1, undef,  0, " ",              0 ],
+	);
+
+plan tests => 3 * @tests;
+
+
+foreach my $test ( @tests ) {
+	local $ENV{MANWIDTH}               = $test->[MANWIDTH];
+	local $Local::ToMan::stty_text     = $test->[STTY];
+	local $Local::ToMan::is_linux      = $test->[IS_LINUX];
+
+	{
+	no warnings 'uninitialized';
+	diag( sprintf 
+		"MANWIDTH: %s STTY: %s LINUX: %s",
+		defined $ENV{MANWIDTH} ? $ENV{MANWIDTH} : "(undef)",
+		$Local::ToMan::stty_text,
+		$Local::ToMan::is_linux,
+		) if $ENV{PERLDOCDEBUG};
+	}
+
+	is( Local::ToMan->_get_columns_from_manwidth(), $test->[MANWIDTH_EXPECTED],
+		"_get_columns_from_manwidth returns the right number" );
+	is( Local::ToMan->_get_columns_from_stty(),     $test->[STTY_EXPECTED],
+	    "_get_columns_from_stty returns the right number" );
+	is( Local::ToMan->_get_columns,                 $test->[EXPECTED],
+	    "_get_columns returns the right number" );
+	}
diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/t/pod.t b/gnu/usr.bin/perl/cpan/Pod-Perldoc/t/pod.t
new file mode 100644
index 00000000000..3dbee4f436b
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/t/pod.t
@@ -0,0 +1,11 @@
+use strict;
+use warnings;
+use Test::More;
+
+unless ( $ENV{RELEASE_TESTING} ) {
+    plan skip_all => 'Pod tests not required for installation.';
+}
+
+eval "use Test::Pod 1.22";
+plan skip_all => 'Test::Pod 1.22 or higher not installed.' if $@;
+all_pod_files_ok();