#!/usr/bin/env perl
#-*-perl-*-
use Test::More;
use utf8;
use FindBin qw/$Bin/;
use lib "$Bin/../lib";
use Lingua::Identify::Blacklists ':all';
my %files = ( bs => "$Bin/data/eval/dnevniavaz.ba.200.check",
hr => "$Bin/data/eval/vecernji.hr.200.check",
sr => "$Bin/data/eval/politika.rs.200.check" );
foreach my $lang (keys %files){
is( identify_file($files{$lang}), $lang) ;
is (my @pred = identify_file($files{$lang}, every_line => 1), 200);
}
done_testing;