use strict;
use Test::More;
require "t/lb.pl";

BEGIN { plan tests => 19 }

# break
foreach my $lang (qw(ar el fr ja ja-a ko ru zh)) {
    dotest_array($lang, $lang);
}    

# urgent
dotest_array('ecclesiazusae', 'ecclesiazusae');
dotest_array('ecclesiazusae', 'ecclesiazusae.ColumnsMax', Urgent => 'FORCE');
dotest_array('ecclesiazusae', 'ecclesiazusae.CharactersMax', CharMax => 79);
dotest_array('ecclesiazusae', 'ecclesiazusae.ColumnsMin',
       ColMin => 7, ColMax => 66, Urgent => 'FORCE');

eval {
    dotest_array('ecclesiazusae', 'ecclesiazusae', Urgent => 'CROAK');
};
ok($@ =~ /^Excessive line was found/, 'CROAK');

# format
foreach my $lang (qw(fr ja)) {
    dotest_array($lang, "$lang.format", Format => sub {
        return "    $_[1]>$_[2]" if $_[1] =~ /^so/;
        return "<$_[1]\n" if $_[1] =~ /^eo/;
        undef });
}
foreach my $lang (qw(fr ko)) {
    dotest_array($lang, "$lang.newline", Format => "NEWLINE");
}    
foreach my $lang (qw(fr ko)) {
    dotest_array($lang, "$lang.newline", Format => "TRIM");
}    


1;