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
|
#!/usr/bin/perl -Tw
use warnings;
use strict;
use Test::More tests=>1;
use Text::Textile qw(textile);
my $source = <<'SOURCE';
start paragraph
another paragraph
* list of things with "urls":http://www.jerakeen.org in
* more things in the list
a http://bare.url.here. and an email\@address.com
SOURCE
my $dest = textile($source);
$dest =~ s/(^\s+|\s+$)//g;
my $expected = <<'EXPECTED';
<p>start paragraph</p>
<p>another paragraph</p>
<ul>
<li>list of things with <a href="http://www.jerakeen.org">urls</a> in</li>
<li>more things in the list</li>
</ul>
<p>a http://bare.url.here. and an email\@address.com</p>
EXPECTED
$expected =~ s/(^\s+|\s+$)//g;
is($dest, $expected, 'Do we match?');
|
