1use Test::More tests => 6;
2
3use IMDB::Persons;
4
5my %person_info = (
6	code           => '0000129',
7	id	           => '0000129',
8	name           => qq{Tom Cruise},
9	mini_bio       	=> qq{If you had told 14 year old Franciscan seminary student Thomas Cruise Mapother IV that one day in the not too distant future he would be considered one of the top 100 movie stars of all time, he would have probably grinned and told you that his ambition was to become a priest. Nonetheless, this sensitive...},
10	date_of_birth  => qq{3 July 1962},
11	place_of_birth => qq{Syracuse, New York, USA},
12);
13
14my %pars = (crit => $person_info{code}, cache => 0, debug => 0);
15my $p = new IMDB::Persons(%pars);
16
17is($p->code, $person_info{code}, 'code');
18is($p->name, $person_info{name}, 'name');
19is($p->date_of_birth, $person_info{date_of_birth}, 'date_of_birth');
20is($p->place_of_birth, $person_info{place_of_birth}, 'place_of_birth');
21is($p->mini_bio, $person_info{mini_bio}, 'mini_bio');
22like($p->photo, qr#\.jpg#i, 'photo');
23