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
|
#!/usr/bin/env perl
use strict;
use warnings;
use MojoMojo::Formatter::Textile;
use Test::More tests => 6;
use Test::Differences;
my ( $content, $got, $expected, $test );
#----------------------------------------------------------------------------
$test = 'extra EOL at EOF';
$content = 'foo';
$expected = "<p>foo</p>\n";
is( MojoMojo::Formatter::Textile->main_format_content( \$content ), $expected, $test );
$test = 'consecutive EOL at EOF collapsed into one';
$content = "foo\n\n";
$expected = "<p>foo</p>\n";
is( MojoMojo::Formatter::Textile->main_format_content( \$content ), $expected, $test );
#----------------------------------------------------------------------------
$test = 'pre tag - no attribute';
$content = << 'TEXTILE';
<pre>
Hopen, Norway
</pre>
TEXTILE
$expected = <<'HTML';
<pre>
Hopen, Norway
</pre>
HTML
MojoMojo::Formatter::Textile->main_format_content( \$content );
eq_or_diff( $content, $expected, $test );
$test = 'pre tag - no attribute and some text before a pre tag';
$content = <<'TEXTILE';
Tinc família a
<pre>
Hopen, Norway
</pre>
TEXTILE
$expected = <<'HTML';
<p>Tinc família a</p>
<pre>
Hopen, Norway
</pre>
HTML
MojoMojo::Formatter::Textile->main_format_content( \$content );
eq_or_diff( $content, $expected, $test );
$test = 'remote image';
$content = '<img src="http://far.away.com/imatge.jpg" />';
$expected = '<p><img src="http://far.away.com/imatge.jpg" /></p>' . "\n";
MojoMojo::Formatter::Textile->main_format_content( \$content );
eq_or_diff( $content, $expected, $test );
#----------------------------------------------------------------------------
$test = "Do not encode non-markup Unicode characters";
$content = <<'TEXTILE';
Odd as they may be, leave these characters alone:
להפסיק להשתמש המזוין שפות זרות
áéíóú¿¡üñ
TEXTILE
eq_or_diff( MojoMojo::Formatter::Textile->main_format_content( \$content ), $content, $test );
|
