From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SAPER / Syntax-Highlight-HTML-0.04 / t / 10highlight.t 

            

              
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

              
use strict;
use Test::More;
BEGIN { plan tests => 10 }
use Syntax::Highlight::HTML;
my $highlighter = new Syntax::Highlight::HTML;
my $expected = '';
## testing an empty string
is( $highlighter->parse(''), "<pre>\n</pre>\n"                ); #01
## testing a doctype declaration
is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #02
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
ORIGINAL
<pre>
<span class="h-decl">&lt;!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"&gt;</span>
</pre>
EXPECTED
## testing a XML processing instruction
is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #03
<?xml version="1.0" encoding="iso-8859-1"?>
ORIGINAL
<pre>
<span class="h-pi">&lt;?xml version="1.0" encoding="iso-8859-1"?&gt;</span>
</pre>
EXPECTED
## testing a SGML comment
is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #04
<!-- This is a classic SGML coment -->
ORIGINAL
<pre>
<span class="h-com">&lt;!-- This is a classic SGML coment --&gt;</span>
</pre>
EXPECTED
## testing an HTML <p>
is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #05
<p>Hello, world.</p>
ORIGINAL
<pre>
<span class="h-ab">&lt;</span><span class="h-tag">p</span><span class="h-ab">&gt;</span>Hello, world.<span class="h-ab">&lt;/</span><span class="h-tag">p</span><span class="h-ab">&gt;</span>
</pre>
EXPECTED
## testing an HTML <p>, indented
is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #06
    <p>Hello, world.</p>
ORIGINAL
<pre>
    <span class="h-ab">&lt;</span><span class="h-tag">p</span><span class="h-ab">&gt;</span>Hello, world.<span class="h-ab">&lt;/</span><span class="h-tag">p</span><span class="h-ab">&gt;</span>
</pre>
EXPECTED
## testing an XHTML <br/>
is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #07
<br/>
ORIGINAL
<pre>
<span class="h-ab">&lt;</span><span class="h-tag">br/</span><span class="h-ab">&gt;</span>
</pre>
EXPECTED
## testing an XHTML <br/>, mixed case
is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #08
<br/><Br/><bR/><BR/>
ORIGINAL
<pre>
<span class="h-ab">&lt;</span><span class="h-tag">br/</span><span class="h-ab">&gt;</span><span class="h-ab">&lt;</span><span class="h-tag">Br/</span><span class="h-ab">&gt;</span><span class="h-ab">&lt;</span><span class="h-tag">bR/</span><span class="h-ab">&gt;</span><span class="h-ab">&lt;</span><span class="h-tag">BR/</span><span class="h-ab">&gt;</span>
</pre>
EXPECTED
## testing an HTML <a>
is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #09
<a href="http://www.maddingue.org/">Maddingue's web site</a>
ORIGINAL
<pre>
<span class="h-ab">&lt;</span><span class="h-tag">a</span> <span class="h-attr">href</span>=<span class="h-attv">"http://www.maddingue.org/</span>"<span class="h-ab">&gt;</span>Maddingue's web site<span class="h-ab">&lt;/</span><span class="h-tag">a</span><span class="h-ab">&gt;</span>
</pre>
EXPECTED
## testing an HTML <a>, splitted on several lines
is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #10
<a href="http://www.maddingue.org/" 
    title="Maddingue's web site"
    lang="fr,en" type="text/html"
  >Maddingue's web site</a>
ORIGINAL
<pre>
<span class="h-ab">&lt;</span><span class="h-tag">a</span> <span class="h-attr">href</span>=<span class="h-attv">"http://www.maddingue.org/</span>" 
    <span class="h-attr">title</span>=<span class="h-attv">"Maddingue's web site</span>"
    <span class="h-attr">lang</span>=<span class="h-attv">"fr,en</span>" <span class="h-attr">type</span>=<span class="h-attv">"text/html</span>"
  <span class="h-ab">&gt;</span>Maddingue's web site<span class="h-ab">&lt;/</span><span class="h-tag">a</span><span class="h-ab">&gt;</span>
</pre>
EXPECTED