File: 40trustliststart.t

package info (click to toggle)
libtext-markdown-perl 1.000031-5
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 1,988 kB
  • sloc: perl: 2,164; makefile: 9
file content (33 lines) | stat: -rw-r--r-- 455 bytes parent folder | download | duplicates (5) 
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
 
use strict;
use warnings;
use Test::More tests => 2;

use_ok( 'Text::Markdown' );

my $m     = Text::Markdown->new(trust_list_start_value => 1);
my $html1 = $m->markdown(<<"EOF");
1. this
2. is a list

Paragraph.

3. and we
4. pick up

EOF

my $want = <<'EOF';
<ol start='1'>
<li>this</li>
<li>is a list</li>
</ol>

<p>Paragraph.</p>

<ol start='3'>
<li>and we</li>
<li>pick up</li>
</ol>
EOF

is($html1, $want, "we can use numbering from start marker");