use strict;

use warnings;

use FindBin;

use File::Spec;    # try to keep pathnames neutral

use Test::More 0.96;

use lib 't/lib';

use Test::HTML::Formatter;

Test::HTML::Formatter->test_files(

    class_suffix       => 'FormatText',

    filename_extension => 'txt',

    callback_test_file => sub {

        my ( $self, $infile, $expfile ) = @_;

        # read file content - use older style slurp

        local (*FH);

        open( FH, $expfile ) or die "Unable to open expected file $expfile - $!\n";

        my $exp_text = do { local ($/); <FH> };

        my $exp_lines = [ split( /\n/, $exp_text ) ];

        # read and convert file

        my $text = HTML::FormatText->format_file( $infile, leftmargin => 5, rightmargin => 50 );

        my $got_lines = [ split( /\n/, $text ) ];

        ok( length($text), "  $infile:  Returned a string from conversion" );

        is_deeply( $got_lines, $exp_lines, "  $infile: Correct text string returned" );

    }

);

# build a set of tests

my @test_fragments = (

    [ "
",                                  "\n",                           "Empty paragraph" ],

    [ "
",                           "\n",                           "Double empty paragraph" ],

    [ "
This is paragraph
",                 "   This is paragraph\n",       "Minimal paragraph" ],

    [ "
Two
Paragraphs
",              "   Two\n\n   Paragraphs\n",    "Two Paragraphs" ],

    [ "
An italicised paragraph
",  "   An italicised paragraph\n", "Em Formatted paragraph" ],

    [ "
A bold paragraph
", "   A bold paragraph\n",        "Strong Formatted paragraph" ],

    [   "
one
two
three
",

        "     1. one\n\n     2. two\n\n     3. three\n",

        "Numbered list"

    ],

    [ "
one
two
three
", "     * one\n\n     * two\n\n     * three\n", "Bullet list" ],

);

# and step through them

ok( scalar(@test_fragments), 'Fragment tests' );

foreach my $frags (@test_fragments) {

    my $fmt = HTML::FormatText->new();

    is( $fmt->format_from_string( $frags->[0] ), $frags->[1], ( '  ' . $frags->[2] ) );

}

# finish up

done_testing();