[perl5.git] / t / pod / podchkenc.t

#!/usr/bin/perl
BEGIN {
   use File::Basename;
   my $THISDIR = dirname $0;
   unshift @INC, $THISDIR;
   require "testpchk.pl";
   import TestPodChecker;
}

# this tests Pod::Checker accepts =encoding directive

my %options = map { $_ => 1 } @ARGV;  ## convert cmdline to options-hash
my $passed  = testpodchecker \%options, $0;
exit( ($passed == 1) ? 0 : -1 )  unless $ENV{HARNESS_ACTIVE};

__END__

=encoding utf8

=encode utf8

dummy error

=head1 An example.

'Twas brillig, and the slithy toves did gyre and gimble in the wabe.

=cut
Commit	Line	Data
1bc4b319 SH	1	#!/usr/bin/perl
	2	BEGIN {
	3	use File::Basename;
	4	my $THISDIR = dirname $0;
	5	unshift @INC, $THISDIR;
	6	require "testpchk.pl";
	7	import TestPodChecker;
	8	}
	9
	10	# this tests Pod::Checker accepts =encoding directive
	11
	12	my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash
	13	my $passed = testpodchecker \%options, $0;
	14	exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};
	15
	16	__END__
	17
	18	=encoding utf8
	19
	20	=encode utf8
	21
	22	dummy error
	23
	24	=head1 An example.
	25
	26	'Twas brillig, and the slithy toves did gyre and gimble in the wabe.
	27
	28	=cut
	29