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