"Fossies" - the Fresh Open Source Software Archive

Member "perl-5.32.1/cpan/Pod-Perldoc/t/00_load.t" (18 Dec 2020, 626 Bytes) of package /linux/misc/perl-5.32.1.tar.xz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 use strict;
    2 use warnings;
    3 
    4 use Test::More;
    5 
    6 my @classes = ('Pod::Perldoc', map { "Pod::Perldoc::$_" } qw(
    7     BaseTo       ToChecker    ToNroff      ToRtf        
    8     GetOptsOO    ToMan        ToPod        ToText       ToXml
    9     ToANSI       ToTerm
   10 ) );
   11 
   12 if( eval { require Tk; require Tk::Pod; 1 } ) { push @classes, 'Pod::Perldoc::ToTk' }
   13 else {
   14 	note "Skip testing Pod::Perldoc::ToTk because there's no Tk";
   15 	}
   16 
   17 plan tests => scalar @classes;
   18 
   19 foreach my $class ( @classes ) {
   20 	require_ok( $class );
   21 	my $version = do { no strict 'refs'; ${ '$' . $class . '::VERSION' } };
   22 	note( "$class $version" ) if defined $version
   23 	}