podcheck.t: tell the author where the problems db is located
[perl.git] / cpan / podlators / t / man-utf8.t
1 #!/usr/bin/perl -w
2 #
3 # man-utf8.t -- Test Pod::Man with UTF-8 input.
4 #
5 # Copyright 2002, 2004, 2006, 2008, 2009, 2012 Russ Allbery <rra@stanford.edu>
6 #
7 # This program is free software; you may redistribute it and/or modify it
8 # under the same terms as Perl itself.
9
10 BEGIN {
11     chdir 't' if -d 't';
12     if ($ENV{PERL_CORE}) {
13         @INC = '../lib';
14     }
15     unshift (@INC, '../blib/lib');
16     $| = 1;
17 }
18
19 use strict;
20
21 use Test::More;
22
23 # UTF-8 support requires Perl 5.8 or later.
24 BEGIN {
25     if ($] < 5.008) {
26         plan skip_all => 'Perl 5.8 required for UTF-8 support';
27     } else {
28         plan tests => 7;
29     }
30 }
31 BEGIN { use_ok ('Pod::Man') }
32
33 # Force UTF-8 on all relevant file handles.  Do this inside eval in case the
34 # encoding parameter doesn't work.
35 eval { binmode (\*DATA, ':encoding(utf-8)') };
36 eval { binmode (\*STDOUT, ':encoding(utf-8)') };
37 my $builder = Test::More->builder;
38 eval { binmode ($builder->output, ':encoding(utf-8)') };
39 eval { binmode ($builder->failure_output, ':encoding(utf-8)') };
40
41 my $n = 1;
42 while (<DATA>) {
43     my %options;
44     next until $_ eq "###\n";
45     while (<DATA>) {
46         last if $_ eq "###\n";
47         my ($option, $value) = split;
48         $options{$option} = $value;
49     }
50     open (TMP, "> tmp$$.pod") or die "Cannot create tmp$$.pod: $!\n";
51     eval { binmode (\*TMP, ':encoding(utf-8)') };
52     print TMP "=encoding utf-8\n\n";
53     while (<DATA>) {
54         last if $_ eq "###\n";
55         print TMP $_;
56     }
57     close TMP;
58     my $parser = Pod::Man->new (%options);
59     isa_ok ($parser, 'Pod::Man', 'Parser object');
60     open (OUT, "> out$$.tmp") or die "Cannot create out$$.tmp: $!\n";
61     $parser->parse_from_file ("tmp$$.pod", \*OUT);
62     close OUT;
63     my $accents = 0;
64     open (TMP, "out$$.tmp") or die "Cannot open out$$.tmp: $!\n";
65     eval { binmode (\*TMP, ':encoding(utf-8)') };
66     while (<TMP>) {
67         $accents = 1 if /Accent mark definitions/;
68         last if /^\.nh/;
69     }
70     my $output;
71     {
72         local $/;
73         $output = <TMP>;
74     }
75     close TMP;
76     1 while unlink ("tmp$$.pod", "out$$.tmp");
77     if ($options{utf8}) {
78         ok (!$accents, "Saw no accent definitions for test $n");
79     } else {
80         ok ($accents, "Saw accent definitions for test $n");
81     }
82     my $expected = '';
83     while (<DATA>) {
84         last if $_ eq "###\n";
85         $expected .= $_;
86     }
87     is ($output, $expected, "Output correct for test $n");
88     $n++;
89 }
90
91 # Below the marker are bits of POD and corresponding expected text output.
92 # This is used to test specific features or problems with Pod::Man.  The
93 # input and output are separated by lines containing only ###.
94
95 __DATA__
96
97 ###
98 utf8 1
99 ###
100 =head1 BEYONCÉ
101
102 Beyoncé!  Beyoncé!  Beyoncé!!
103
104     Beyoncé!  Beyoncé!
105       Beyoncé!  Beyoncé!
106         Beyoncé!  Beyoncé!
107
108 Older versions did not convert Beyoncé in verbatim.
109 ###
110 .SH "BEYONCÉ"
111 .IX Header "BEYONCÉ"
112 Beyoncé!  Beyoncé!  Beyoncé!!
113 .PP
114 .Vb 3
115 \&    Beyoncé!  Beyoncé!
116 \&      Beyoncé!  Beyoncé!
117 \&        Beyoncé!  Beyoncé!
118 .Ve
119 .PP
120 Older versions did not convert Beyoncé in verbatim.
121 ###
122
123 ###
124 utf8 1
125 ###
126 =head1 SE<lt>E<gt> output with UTF-8
127
128 This is S<non-breaking output>.
129 ###
130 .SH "S<> output with UTF\-8"
131 .IX Header "S<> output with UTF-8"
132 This is non-breaking output.
133 ###