1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
use strict;
use warnings;
use Test::More 0.96;
##use Data::Dump qw[dump]; # uncomment if needed for debugging
##use File::Slurp; # uncomment if needed for debugging
# Bug was that a right single quote character - ’
# caused a garbage character to go into the output. This was due to
# unicode conversion to \x{2109} which was not correctly handled on
# output. Fix was to:-
# 1. Push everything through Encode to the right charset
# which fixed the majority of printable characters, however
# 2. A few punctation characters were incorrectly handled, so
# are special cased by the formatter into the ascii part of
# the table.
BEGIN { use_ok("HTML::FormatPS"); use_ok("HTML::TreeBuilder"); }
my $table = {
'’' => 'apostrophe/right single quote',
'‘' => 'left single quote',
'”' => 'right double quote',
'“' => 'left double quote',
'£' => 'pound symbol',
};
foreach my $quoted ( sort { $a cmp $b } keys %{$table} ) {
my $desc = $table->{$quoted};
my $obj = new_ok("HTML::FormatPS");
my $htree = new_ok("HTML::TreeBuilder");
my $html = '<html><body>The ' . $desc . ' is a ' . $quoted . ' character</body></html>';
ok( $html, "HTML string containing an $desc should map to $desc" );
ok( $htree->parse_content($html), ' Parse HTML content' );
my $result = $obj->format_string($html);
ok( $result, ' Converted HTML object' );
# count high bit characters
my $count;
{
use bytes;
if ( $quoted eq '£' ) {
# we must exclude latin1 pound - char \243
$count = $result =~ tr/\177-\242\244-\377//;
}
else {
$count = $result =~ tr/\177-\377//;
}
}
ok( ( $count == 0 ), ' No unexpected high-bit characters found' );
## # stuff postscript out into file - uncomment if you need for debugging
## my $fn = $quoted;
## $fn =~ tr/a-z//cd;
## $fn .= '.ps';
## write_file( $fn, { binmode => ':raw' }, $result );
## # tell details about errors - uncomment if needed
## diag( dump( { orig => $html, dump => $htree->dump, result => $result } ) ) if ($count);
}
# finish up
done_testing();
|
