The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More;
use Pod::POM;

BEGIN {
	use lib 'lib';
	use_ok('Pod::POM::View::TextBasic');
}

Pod::POM->default_view( 'Pod::POM::View::TextBasic' )
	or fail $Pod::POM::ERROR;

my $p = Pod::POM->new( warn => 1 );

isa_ok(
	$p,
	'Pod::POM'
);
	
my $pom = $p->parse_file( 't/good.pod' )
	or fail $p->error();

ok( $pom->content, 'got content');

done_testing();