wrt/t/wrt_markup.t

#!/usr/bin/env perl
use strict;
use warnings;

use lib 'lib';

use Test::More tests => 2;
use App::WRT;

chdir 'example';

ok (my $w = App::WRT::new_from_file('wrt.json'), "Got WRT object.");

my $testlines = <<'LINES';
<textile>h1. Hello

Some stuff.
</textile>

<markdown>
La la la!
</markdown>
<freeverse>
Dogs
frolic in

moonlight.
</freeverse>

<list>
one

two
</list>

<include>files/include_me</include>
<include>files/include_me</include>
LINES

my $expectedlines = <<'LINES';
<h1>Hello</h1>

<p>Some stuff.</p>

<p>La la la!</p>

<p>Dogs<br />
frolic in</p>

<p>moonlight.</p>

<ul>
<li>one</li>

<li>two</li>
</ul>

<p>This content included from elsewhere.</p>

<p>This content included from elsewhere.</p>

LINES

my $result = $w->line_parse($testlines, undef);

ok(
  $result eq $expectedlines,
  'line_parse works'
);

if ($result ne $expectedlines) {
  diag($result);
}

1;