#!perl
use strict;
use warnings;
use Test::More tests => 5;
BEGIN { use_ok( 'WebService::TVDB::Languages', qw($languages) ); }
ok( $languages, '$languages is exported' );
ok( $languages->{English}, 'we have English' );
is( $languages->{English}->{id}, '7', 'English has an id' );
is( $languages->{English}->{abbreviation}, 'en',
'English has an abbreviation' );