use Test::More;
use File::Basename;

plan tests => 8;

use_ok("Lingua::Lexicon::IDP");

my $idp = Lingua::Lexicon::IDP->new("en");
isa_ok($idp,"Lingua::Lexicon::IDP");

foreach my $lang (@{$idp->translations()}) {
  $idp->$lang("dog");
  cmp_ok(basename($idp->{'__datafile'}),"eq","en_$lang.txt","$lang: $idp->{'__datafile'}");
}

# $Id: datafile.t,v 1.1 2003/02/04 14:04:01 asc Exp $