1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/perl -w
use warnings;
use strict;
use Test::More tests=>1;
use Text::Textile qw(textile);
my $source = <<'SOURCE';
@if@, @while@, @for@ and @else@ are some of my favorite keywords. I also like the variable @i@.
SOURCE
my $dest = textile($source);
$dest =~ s/(^\s+|\s+$)//g;
my $expected = <<'EXPECTED';
<p><code>if</code>, <code>while</code>, <code>for</code> and <code>else</code> are some of my favorite keywords. I also like the variable <code>i</code>.</p>
EXPECTED
$expected =~ s/(^\s+|\s+$)//g;
is($dest, $expected);
|
