|
#!/usr/bin/perl
use 5.012;
BEGIN {
use_ok( 'Pod::Text' );
}
my @snippets = qw(
alt c-with-spaces code cpp empty error-die error-none error-normal
error-pod error-stderr error-stderr-opt for guesswork-quoting
guesswork-no-quoting late-encoding link-rt link-url margin naive
name-quotes name-quotes-none non-latin nonbreaking-space
nonbreaking-space-l nonbreaking-wrap nourls periods quotes-opt
s-whitespace sentence-spacing utf8 verbatim
) ;
for my $snippet ( @snippets ) {
test_snippet( 'Pod::Text' , "text/$snippet" );
}
|