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
|
use strict;
use warnings;
use Symbol;
use Test::More tests => 5;
BEGIN {
use_ok('CommonMark', ':node');
}
my $md = <<'EOF';
normal, *emph*, **strong**
EOF
my $doc = CommonMark->parse_document($md);
my $paragraph = $doc->first_child;
my $text = $paragraph->first_child;
my $emph = $text->next;
my $strong = $paragraph->last_child;
my $space = $strong->first_child->parent->previous;
my $expected_html = $doc->render_html;
$doc = undef;
my $result = CommonMark::Node->new(NODE_DOCUMENT);
$text->unlink;
$strong->unlink;
$result->append_child($paragraph);
$emph->insert_before($text);
$space->insert_after($strong);
is($result->render_html, $expected_html, 'tree manipulation');
for my $i (1..4) {
$paragraph->first_child->insert_before($paragraph->last_child);
}
is($result->render_html, $expected_html, 'rotate right');
for my $i (1..4) {
$paragraph->last_child->insert_after($paragraph->first_child);
}
is($result->render_html, $expected_html, 'rotate left');
$emph->replace($strong);
$space->unlink;
$expected_html = <<'EOF';
<p>normal, <strong>strong</strong></p>
EOF
is($result->render_html, $expected_html, 'replace');
|
