use Test::More tests => 6;
use IMDB::Persons;
my %person_info = (
code => '0000129',
id => '0000129',
name => qq{Tom Cruise},
mini_bio => qq{In 1976, if you had told 14 year old Franciscan seminary student Thomas...},
date_of_birth => qq{3 July 1962},
place_of_birth => qq{Syracuse, New York, USA},
photo => '/images/M/MV5BMTI4MzUyMTI1N15BMl5BanBnXkFtZTcwOTg3NTYyMQ@@._V1._SX100_SY140_.jpg',
);
my %pars = (crit => $person_info{code}, cache => 0, debug => 0);
my $p = new IMDB::Persons(%pars);
is($p->code, $person_info{code}, 'code');
is($p->name, $person_info{name}, 'name');
is($p->date_of_birth, $person_info{date_of_birth}, 'date_of_birth');
is($p->place_of_birth, $person_info{place_of_birth}, 'place_of_birth');
is($p->mini_bio, $person_info{mini_bio}, 'mini_bio');
like($p->photo, qr/$person_info{photo}/, 'photo');