# -*- cperl -*-

use Test::More tests => 1 + 4;
use POSIX qw(locale_h);
setlocale(LC_CTYPE, "pt_PT");
use locale;

BEGIN { use_ok( 'Lingua::PT::PLNbase' ); }


$a = 'วแ้';

SKIP: {
  skip "not a good locale", 4 unless $a =~ m!^\w{3}$!;

  fsentences({output=>'foo'},"t/ftext1");
  is(`diff foo t/ftext1.out1`,"");
  unlink "foo";


  fsentences({s_tag => 'sentence',
	      t_tag => 'file',
	      p_tag => 'paragraph',
	      output=>'foo'},"t/ftext1");
  is(`diff foo t/ftext1.out2`,"");
  unlink "foo";


  fsentences({o_format => 'NATools',
	      output=>'foo'},"t/ftext1");
  is(`diff foo t/ftext1.out3`,"");
  unlink "foo";


  fsentences({o_format => 'NATools',
	      tokenize => 1,
	      output=>'foo'},"t/ftext1");
  is(`diff foo t/ftext1.out4`,"");
  unlink "foo";

}
