github-markup 3.0.2 → 3.0.3
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- checksums.yaml +4 -4
- data/.travis.yml +1 -7
- data/HISTORY.md +4 -0
- data/github-markup.gemspec +1 -1
- data/lib/github-markup.rb +1 -1
- data/lib/github/commands/pod62html +1 -6
- metadata +2 -32
- data/.gitmodules +0 -3
- data/test/markups/README.pod6 +0 -151
- data/test/markups/README.pod6.html +0 -128
- data/vendor/Pod-To-HTML/LICENSE +0 -201
- data/vendor/Pod-To-HTML/META6.json +0 -20
- data/vendor/Pod-To-HTML/README.md +0 -96
- data/vendor/Pod-To-HTML/README.pod6 +0 -42
- data/vendor/Pod-To-HTML/TODO +0 -5
- data/vendor/Pod-To-HTML/lib/Pod/To/HTML.pm +0 -691
- data/vendor/Pod-To-HTML/resources/examples/01-parse-files.p6 +0 -7
- data/vendor/Pod-To-HTML/resources/examples/README.md +0 -13
- data/vendor/Pod-To-HTML/resources/examples/main.mustache +0 -26
- data/vendor/Pod-To-HTML/resources/examples/render.p6 +0 -17
- data/vendor/Pod-To-HTML/resources/templates/main.mustache +0 -32
- data/vendor/Pod-To-HTML/t/010-basic.t +0 -29
- data/vendor/Pod-To-HTML/t/020-code.t +0 -49
- data/vendor/Pod-To-HTML/t/030-comment.t +0 -15
- data/vendor/Pod-To-HTML/t/040-lists.t +0 -82
- data/vendor/Pod-To-HTML/t/050-format-x-index.t +0 -47
- data/vendor/Pod-To-HTML/t/060-table.t +0 -108
- data/vendor/Pod-To-HTML/t/070-headings.t +0 -45
- data/vendor/Pod-To-HTML/t/075-defn.t +0 -45
- data/vendor/Pod-To-HTML/t/080-lang.t +0 -14
- data/vendor/Pod-To-HTML/t/090-css.t +0 -16
- data/vendor/Pod-To-HTML/t/100-issue-37.t +0 -16
- data/vendor/Pod-To-HTML/t/110-issue-41.t +0 -18
- data/vendor/Pod-To-HTML/t/120-templates.t +0 -42
- data/vendor/Pod-To-HTML/t/templates/main.mustache +0 -33
|
@@ -1,13 +0,0 @@
|
|
|
1
|
-
# Some examples for the module.
|
|
2
|
-
|
|
3
|
-
Test
|
|
4
|
-
|
|
5
|
-
perl6 -I../../lib render.p6
|
|
6
|
-
|
|
7
|
-
which uses the local [template `main.mustache`](main.mustache) instead of the default one. Add a pod6 or pm6 file at the end if you want to check a different file.
|
|
8
|
-
|
|
9
|
-
Change to the upper dir, and run
|
|
10
|
-
|
|
11
|
-
perl6 -Ilib resources/examples/01-parse-files.p6
|
|
12
|
-
|
|
13
|
-
for a similar version which uses the same file.
|
|
@@ -1,26 +0,0 @@
|
|
|
1
|
-
<!doctype html>
|
|
2
|
-
<html lang="{{ lang }}">
|
|
3
|
-
<head>
|
|
4
|
-
<title>{{ title }}</title>
|
|
5
|
-
<meta charset="UTF-8" />
|
|
6
|
-
<style>
|
|
7
|
-
kbd { font-family: "Droid Sans Mono", "Luxi Mono", "Inconsolata", monospace }
|
|
8
|
-
samp, code { font-family: "Terminus", "Courier", "Lucida Console", monospace }
|
|
9
|
-
|
|
10
|
-
.nested {
|
|
11
|
-
margin-left: 3em;
|
|
12
|
-
}
|
|
13
|
-
aside, u { opacity: 0.7 }
|
|
14
|
-
a[id^="fn-"]:target { background: #ff0 }
|
|
15
|
-
</style>
|
|
16
|
-
</head>
|
|
17
|
-
<body class="pod">
|
|
18
|
-
<div id="___top"></div>
|
|
19
|
-
{{{ header }}}
|
|
20
|
-
{{# title }}<h1 class='title'>{{ title }}</h1>{{/ title }}
|
|
21
|
-
{{# subtitle }}<p class='subtitle'>{{ subtitle }}</p>{{/ subtitle }}
|
|
22
|
-
<div class="pod-body no-toc">
|
|
23
|
-
{{# body }}{{{ . }}}{{/ body }}
|
|
24
|
-
</div>
|
|
25
|
-
</body>
|
|
26
|
-
</html>
|
|
@@ -1,17 +0,0 @@
|
|
|
1
|
-
#!/usr/bin/env perl6
|
|
2
|
-
|
|
3
|
-
use v6;
|
|
4
|
-
use MONKEY-SEE-NO-EVAL;
|
|
5
|
-
use Pod::To::HTML;
|
|
6
|
-
|
|
7
|
-
sub MAIN( $file = "../../README.pod6" ) {
|
|
8
|
-
my $file-content = $file.IO.slurp;
|
|
9
|
-
die "No pod here" if not $file-content ~~ /\=begin \s+ pod/;
|
|
10
|
-
my $pod;
|
|
11
|
-
try {
|
|
12
|
-
$pod = EVAL($file-content ~ "\n\$=pod");
|
|
13
|
-
};
|
|
14
|
-
die "Pod fails: $!" if $!;
|
|
15
|
-
my $result = pod2html( $pod, templates => '.' );
|
|
16
|
-
say $result;
|
|
17
|
-
}
|
|
@@ -1,32 +0,0 @@
|
|
|
1
|
-
<!doctype html>
|
|
2
|
-
<html lang="{{ lang }}">
|
|
3
|
-
<head>
|
|
4
|
-
<title>{{ title }}</title>
|
|
5
|
-
<meta charset="UTF-8" />
|
|
6
|
-
<style>
|
|
7
|
-
kbd { font-family: "Droid Sans Mono", "Luxi Mono", "Inconsolata", monospace }
|
|
8
|
-
samp { font-family: "Terminus", "Courier", "Lucida Console", monospace }
|
|
9
|
-
u { text-decoration: none }
|
|
10
|
-
.nested {
|
|
11
|
-
margin-left: 3em;
|
|
12
|
-
}
|
|
13
|
-
aside, u { opacity: 0.7 }
|
|
14
|
-
a[id^="fn-"]:target { background: #ff0 }
|
|
15
|
-
</style>
|
|
16
|
-
{{# css }}<link rel="stylesheet" href="{{ css }}">{{/ css }}
|
|
17
|
-
{{# metadata }}{{{ metadata }}}{{/ metadata }}
|
|
18
|
-
{{{ head }}}
|
|
19
|
-
</head>
|
|
20
|
-
<body class="pod">
|
|
21
|
-
<div id="___top"></div>
|
|
22
|
-
{{{ header }}}
|
|
23
|
-
{{# title }}<h1 class='title'>{{ title }}</h1>{{/ title }}
|
|
24
|
-
{{# subtitle }}<p class='subtitle'>{{ subtitle }}</p>{{/ subtitle }}
|
|
25
|
-
{{# toc }}{{{ toc }}}{{/ toc }}
|
|
26
|
-
<div class="pod-body{{^ toc }} no-toc{{/ toc }})">
|
|
27
|
-
{{# body }}{{{ . }}}{{/ body }}
|
|
28
|
-
</div>
|
|
29
|
-
{{# footnotes }}{{{ footnotes }}}{{/ footnotes }}
|
|
30
|
-
{{{ footer }}}
|
|
31
|
-
</body>
|
|
32
|
-
</html>
|
|
@@ -1,29 +0,0 @@
|
|
|
1
|
-
use Test; # -*- mode: perl6 -*-
|
|
2
|
-
use Pod::To::HTML;
|
|
3
|
-
plan 3;
|
|
4
|
-
|
|
5
|
-
# XXX Need a module to walk HTML trees
|
|
6
|
-
|
|
7
|
-
=begin foo
|
|
8
|
-
=end foo
|
|
9
|
-
|
|
10
|
-
my $r = node2html $=pod[0];
|
|
11
|
-
ok $r ~~ ms/'<section>' '<h1>' foo '</h1>' '</section>' /;
|
|
12
|
-
|
|
13
|
-
=begin foo
|
|
14
|
-
some text
|
|
15
|
-
=end foo
|
|
16
|
-
|
|
17
|
-
$r = node2html $=pod[1];
|
|
18
|
-
ok $r ~~ ms/'<section>' '<h1>' foo '</h1>' '<p>' some text '</p>' '</section>'/;
|
|
19
|
-
|
|
20
|
-
=head1 Talking about Perl 6
|
|
21
|
-
|
|
22
|
-
if $*PERL.compiler.name eq 'rakudo'
|
|
23
|
-
and $*PERL.compiler.version before v2018.06 {
|
|
24
|
-
skip "Your rakudo is too old for this test. Need 2018.06 or newer";
|
|
25
|
-
}
|
|
26
|
-
else {
|
|
27
|
-
$r = node2html $=pod[2];
|
|
28
|
-
nok $r ~~ m:s/Perl 6/, "no-break space is not converted to other space";
|
|
29
|
-
}
|
|
@@ -1,49 +0,0 @@
|
|
|
1
|
-
use Test;
|
|
2
|
-
use Pod::To::HTML;
|
|
3
|
-
plan 3;
|
|
4
|
-
my $r;
|
|
5
|
-
|
|
6
|
-
=begin pod
|
|
7
|
-
This ordinary paragraph introduces a code block:
|
|
8
|
-
|
|
9
|
-
$this = 1 * code('block');
|
|
10
|
-
$which.is_specified(:by<indenting>);
|
|
11
|
-
=end pod
|
|
12
|
-
|
|
13
|
-
$r = node2html $=pod[0];
|
|
14
|
-
ok $r ~~ ms[[
|
|
15
|
-
'<p>' 'This ordinary paragraph introduces a code block:' '</p>'
|
|
16
|
-
'<pre class="pod-block-code">$this = 1 * code('block');'
|
|
17
|
-
'$which.is_specified(:by<indenting>);</pre>']];
|
|
18
|
-
|
|
19
|
-
=begin pod
|
|
20
|
-
This is an ordinary paragraph
|
|
21
|
-
|
|
22
|
-
While this is not
|
|
23
|
-
This is a code block
|
|
24
|
-
|
|
25
|
-
=head1 Mumble: "mumble"
|
|
26
|
-
|
|
27
|
-
Suprisingly, this is not a code block
|
|
28
|
-
(with fancy indentation too)
|
|
29
|
-
|
|
30
|
-
But this is just a text. Again
|
|
31
|
-
|
|
32
|
-
=end pod
|
|
33
|
-
|
|
34
|
-
$r = node2html $=pod[1];
|
|
35
|
-
ok $r ~~ ms[['<p>' 'This is an ordinary paragraph' '</p>'
|
|
36
|
-
'<pre class="pod-block-code">While this is not'
|
|
37
|
-
'This is a code block</pre>'
|
|
38
|
-
'<h1 id="Mumble:_"mumble"">' '<a class="u" href="#___top" title="go to top of document">'
|
|
39
|
-
'Mumble: "mumble"'
|
|
40
|
-
'</a>' '</h1>'
|
|
41
|
-
'<p>' 'Suprisingly, this is not a code block (with fancy indentation too)' '</p>'
|
|
42
|
-
'<p>' 'But this is just a text. Again' '</p>']];
|
|
43
|
-
|
|
44
|
-
my %*POD2HTML-CALLBACKS = code => sub (:$node, :&default) {
|
|
45
|
-
ok $node.contents ~~ /:i code/, 'Callback called';
|
|
46
|
-
}
|
|
47
|
-
|
|
48
|
-
# say $=pod[0].perl;
|
|
49
|
-
pod2html $=pod[0];
|
|
@@ -1,82 +0,0 @@
|
|
|
1
|
-
use Test;
|
|
2
|
-
use Pod::To::HTML;
|
|
3
|
-
plan 3;
|
|
4
|
-
my $r;
|
|
5
|
-
|
|
6
|
-
=begin pod
|
|
7
|
-
The seven suspects are:
|
|
8
|
-
|
|
9
|
-
=item Happy
|
|
10
|
-
=item Dopey
|
|
11
|
-
=item Sleepy
|
|
12
|
-
=item Bashful
|
|
13
|
-
=item Sneezy
|
|
14
|
-
=item Grumpy
|
|
15
|
-
=item Keyser Soze
|
|
16
|
-
=end pod
|
|
17
|
-
|
|
18
|
-
$r = pod2html $=pod[0];
|
|
19
|
-
ok $r ~~ ms[[
|
|
20
|
-
'<p>' 'The seven suspects are:' '</p>'
|
|
21
|
-
'<ul>'
|
|
22
|
-
'<li>' '<p>' Happy '</p>' '</li>'
|
|
23
|
-
'<li>' '<p>' Dopey '</p>' '</li>'
|
|
24
|
-
'<li>' '<p>' Sleepy '</p>' '</li>'
|
|
25
|
-
'<li>' '<p>' Bashful '</p>' '</li>'
|
|
26
|
-
'<li>' '<p>' Sneezy '</p>' '</li>'
|
|
27
|
-
'<li>' '<p>' Grumpy '</p>' '</li>'
|
|
28
|
-
'<li>' '<p>' Keyser Soze '</p>' '</li>'
|
|
29
|
-
'</ul>'
|
|
30
|
-
]];
|
|
31
|
-
|
|
32
|
-
=begin pod
|
|
33
|
-
=item1 Animal
|
|
34
|
-
=item2 Vertebrate
|
|
35
|
-
=item2 Invertebrate
|
|
36
|
-
|
|
37
|
-
=item1 Phase
|
|
38
|
-
=item2 Solid
|
|
39
|
-
=item2 Liquid
|
|
40
|
-
=item2 Gas
|
|
41
|
-
=item2 Chocolate
|
|
42
|
-
=end pod
|
|
43
|
-
|
|
44
|
-
$r = pod2html $=pod[1];
|
|
45
|
-
ok $r ~~ ms[[
|
|
46
|
-
'<ul>'
|
|
47
|
-
'<li>' '<p>' Animal '</p>' '</li>'
|
|
48
|
-
'<ul>'
|
|
49
|
-
'<li>' '<p>' Vertebrate '</p>' '</li>'
|
|
50
|
-
'<li>' '<p>' Invertebrate '</p>' '</li>'
|
|
51
|
-
'</ul>'
|
|
52
|
-
'<li>' '<p>' Phase '</p>' '</li>'
|
|
53
|
-
'<ul>'
|
|
54
|
-
'<li>' '<p>' Solid '</p>' '</li>'
|
|
55
|
-
'<li>' '<p>' Liquid '</p>' '</li>'
|
|
56
|
-
'<li>' '<p>' Gas '</p>' '</li>'
|
|
57
|
-
'<li>' '<p>' Chocolate '</p>' '</li>'
|
|
58
|
-
'</ul>'
|
|
59
|
-
'</ul>'
|
|
60
|
-
]];
|
|
61
|
-
|
|
62
|
-
=begin pod
|
|
63
|
-
=comment CORRECT...
|
|
64
|
-
=begin item1
|
|
65
|
-
The choices are:
|
|
66
|
-
=end item1
|
|
67
|
-
=item2 Liberty
|
|
68
|
-
=item2 Death
|
|
69
|
-
=item2 Beer
|
|
70
|
-
=end pod
|
|
71
|
-
|
|
72
|
-
$r = pod2html $=pod[2];
|
|
73
|
-
ok $r ~~ ms[[
|
|
74
|
-
'<ul>'
|
|
75
|
-
'<li>' '<p>' 'The choices are:' '</p>' '</li>'
|
|
76
|
-
'<ul>'
|
|
77
|
-
'<li>' '<p>' Liberty '</p>' '</li>'
|
|
78
|
-
'<li>' '<p>' Death '</p>' '</li>'
|
|
79
|
-
'<li>' '<p>' Beer '</p>' '</li>'
|
|
80
|
-
'</ul>'
|
|
81
|
-
'</ul>'
|
|
82
|
-
]];
|
|
@@ -1,47 +0,0 @@
|
|
|
1
|
-
use Test;
|
|
2
|
-
use Pod::To::HTML;
|
|
3
|
-
plan 3;
|
|
4
|
-
|
|
5
|
-
=begin pod
|
|
6
|
-
X<|behavior> L<http://www.doesnt.get.rendered.com>
|
|
7
|
-
=end pod
|
|
8
|
-
|
|
9
|
-
my $r = pod2html $=pod, :url({ $_ });
|
|
10
|
-
ok $r ~~ m/'href="http://www.doesnt.get.rendered.com"'/;
|
|
11
|
-
|
|
12
|
-
=begin pod
|
|
13
|
-
|
|
14
|
-
When indexing X<an item> the X<X format> is used.
|
|
15
|
-
|
|
16
|
-
It is possible to index X<an item> in repeated places.
|
|
17
|
-
=end pod
|
|
18
|
-
|
|
19
|
-
$r = node2html $=pod[1];
|
|
20
|
-
|
|
21
|
-
like $r, /
|
|
22
|
-
'When indexing'
|
|
23
|
-
\s* '<a name="index-entry-an_item">'
|
|
24
|
-
\s* '<span ' .* '>an item</span>'
|
|
25
|
-
.+ 'the'
|
|
26
|
-
.+ '<span ' .+ '>X format</span>'
|
|
27
|
-
.+ 'to index'
|
|
28
|
-
.+ '<span' .+ '>an item</span>'
|
|
29
|
-
.+ 'in repeated places.'
|
|
30
|
-
/, 'X format in text';
|
|
31
|
-
|
|
32
|
-
=begin pod
|
|
33
|
-
|
|
34
|
-
When indexing X<an item|Define an item> another text can be used for the index.
|
|
35
|
-
|
|
36
|
-
It is possible to index X<hierarchical items|defining, a term>with hierarchical levels.
|
|
37
|
-
|
|
38
|
-
And then index the X<same place|Same; Place> with different index entries.
|
|
39
|
-
=end pod
|
|
40
|
-
|
|
41
|
-
$r = node2html $=pod[2];
|
|
42
|
-
like $r, /
|
|
43
|
-
'When indexing <a name="index-entry-Define_an_item-an_item">'
|
|
44
|
-
.* '<span' .+ '>an item</span>'
|
|
45
|
-
.+ 'to index ' .+ 'index-entry-defining__a_term-hierarchical_items' .+ '<span' .+ '>hierarchical items</span>'
|
|
46
|
-
.+ 'index the ' .+ '>same place</span>'
|
|
47
|
-
/, 'Text with indexed items correct';
|
|
@@ -1,108 +0,0 @@
|
|
|
1
|
-
use Test; # -*- mode: perl6 -*-
|
|
2
|
-
use Pod::To::HTML;
|
|
3
|
-
|
|
4
|
-
plan 4;
|
|
5
|
-
|
|
6
|
-
my $r;
|
|
7
|
-
|
|
8
|
-
=table
|
|
9
|
-
col1 col2
|
|
10
|
-
|
|
11
|
-
$r = pod2html $=pod[0];
|
|
12
|
-
#say $r.perl;
|
|
13
|
-
ok $r ~~ ms[[
|
|
14
|
-
'<table class="pod-table">'
|
|
15
|
-
'<tbody>'
|
|
16
|
-
'<tr>'
|
|
17
|
-
'<td>' col1 '</td>'
|
|
18
|
-
'<td>' col2 '</td>'
|
|
19
|
-
'</tr>'
|
|
20
|
-
'</tbody>'
|
|
21
|
-
'</table>'
|
|
22
|
-
]];
|
|
23
|
-
|
|
24
|
-
=table
|
|
25
|
-
H1 H2
|
|
26
|
-
-- --
|
|
27
|
-
col1 col2
|
|
28
|
-
|
|
29
|
-
$r = pod2html $=pod[1];
|
|
30
|
-
#say $r.perl;
|
|
31
|
-
ok $r ~~ ms[[
|
|
32
|
-
'<table class="pod-table">'
|
|
33
|
-
'<thead>'
|
|
34
|
-
'<tr>'
|
|
35
|
-
'<th>' H1 '</th>'
|
|
36
|
-
'<th>' H2 '</th>'
|
|
37
|
-
'</tr>'
|
|
38
|
-
'</thead>'
|
|
39
|
-
'<tbody>'
|
|
40
|
-
'<tr>'
|
|
41
|
-
'<td>' col1 '</td>'
|
|
42
|
-
'<td>' col2 '</td>'
|
|
43
|
-
'</tr>'
|
|
44
|
-
'</tbody>'
|
|
45
|
-
'</table>'
|
|
46
|
-
]];
|
|
47
|
-
|
|
48
|
-
|
|
49
|
-
=begin table :class<sorttable>
|
|
50
|
-
|
|
51
|
-
H1 H2
|
|
52
|
-
-- --
|
|
53
|
-
col1 col2
|
|
54
|
-
|
|
55
|
-
col1 col2
|
|
56
|
-
|
|
57
|
-
=end table
|
|
58
|
-
|
|
59
|
-
$r = pod2html $=pod[2];
|
|
60
|
-
#say $r.perl;
|
|
61
|
-
ok $r ~~ ms[[
|
|
62
|
-
'<table class="pod-table sorttable">'
|
|
63
|
-
'<thead>'
|
|
64
|
-
'<tr>'
|
|
65
|
-
'<th>' H1 '</th>'
|
|
66
|
-
'<th>' H2 '</th>'
|
|
67
|
-
'</tr>'
|
|
68
|
-
'</thead>'
|
|
69
|
-
'<tbody>'
|
|
70
|
-
'<tr>'
|
|
71
|
-
'<td>' col1 '</td>'
|
|
72
|
-
'<td>' col2 '</td>'
|
|
73
|
-
'</tr>'
|
|
74
|
-
'<tr>'
|
|
75
|
-
'<td>' col1 '</td>'
|
|
76
|
-
'<td>' col2 '</td>'
|
|
77
|
-
'</tr>'
|
|
78
|
-
'</tbody>'
|
|
79
|
-
'</table>'
|
|
80
|
-
]];
|
|
81
|
-
|
|
82
|
-
=begin table :caption<Test Caption>
|
|
83
|
-
|
|
84
|
-
H1 H2
|
|
85
|
-
-- --
|
|
86
|
-
col1 col2
|
|
87
|
-
|
|
88
|
-
=end table
|
|
89
|
-
|
|
90
|
-
$r = pod2html $=pod[3];
|
|
91
|
-
# say $r;
|
|
92
|
-
ok $r ~~ ms[[
|
|
93
|
-
'<table class="pod-table">'
|
|
94
|
-
'<caption>' 'Test Caption' '</caption>'
|
|
95
|
-
'<thead>'
|
|
96
|
-
'<tr>'
|
|
97
|
-
'<th>' H1 '</th>'
|
|
98
|
-
'<th>' H2 '</th>'
|
|
99
|
-
'</tr>'
|
|
100
|
-
'</thead>'
|
|
101
|
-
'<tbody>'
|
|
102
|
-
'<tr>'
|
|
103
|
-
'<td>' col1 '</td>'
|
|
104
|
-
'<td>' col2 '</td>'
|
|
105
|
-
'</tr>'
|
|
106
|
-
'</tbody>'
|
|
107
|
-
'</table>'
|
|
108
|
-
]];
|
|
@@ -1,45 +0,0 @@
|
|
|
1
|
-
use v6;
|
|
2
|
-
use Test;
|
|
3
|
-
use Pod::To::HTML;
|
|
4
|
-
|
|
5
|
-
plan 3;
|
|
6
|
-
|
|
7
|
-
=begin pod
|
|
8
|
-
|
|
9
|
-
=head1 Heading 1
|
|
10
|
-
|
|
11
|
-
=head2 Heading 1.1
|
|
12
|
-
|
|
13
|
-
=head2 Heading 1.2
|
|
14
|
-
|
|
15
|
-
=head1 Heading 2
|
|
16
|
-
|
|
17
|
-
=head2 Heading 2.1
|
|
18
|
-
|
|
19
|
-
=head2 Heading 2.2
|
|
20
|
-
|
|
21
|
-
=head2 <a href="/routine/message#class_Exception">(Exception) method message</a>
|
|
22
|
-
|
|
23
|
-
=head3 Heading 2.2.1
|
|
24
|
-
|
|
25
|
-
=head3 X<Heading> 2.2.2
|
|
26
|
-
|
|
27
|
-
=head1 Heading C<3>
|
|
28
|
-
|
|
29
|
-
=end pod
|
|
30
|
-
|
|
31
|
-
my $html = pod2html $=pod;
|
|
32
|
-
|
|
33
|
-
#put $html;
|
|
34
|
-
|
|
35
|
-
($html ~~ m:g/ ('2.2.2') /);
|
|
36
|
-
|
|
37
|
-
is so ($0 && $1 && $2), True, 'hierarchical numbering';
|
|
38
|
-
|
|
39
|
-
($html ~~ m:g/ 'href="#Heading_3"' /);
|
|
40
|
-
|
|
41
|
-
is so $0, True, 'link down to heading';
|
|
42
|
-
|
|
43
|
-
($html ~~ m:g/ ('name="index-entry-Heading"') /);
|
|
44
|
-
|
|
45
|
-
is so ($0 || $1), True, 'no X<> anchors in ToC';
|