#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';
use Test::More tests => 2;
use App::WRT;
chdir 'example/blog';
ok (my $w = App::WRT::new_from_file('wrt.json'), "Got WRT object.");
my $testlines = <<'LINES';
one
two
Some stuff.
La la la!
Dogs
frolic in
moonlight.
This content included from elsewhere.
This content included from elsewhere.
LINES my $result = $w->line_parse($testlines, undef); ok( $result eq $expectedlines, 'line_parse works' ); if ($result ne $expectedlines) { diag($result); } 1;