use Data::Dumper qw/Dumper/;
use Test::RequiresInternet qw/getstrike.net 443/;
-use Test::More tests => 9;
+use Test::More tests => 11;
use Try::Tiny;
BEGIN { use_ok('WebService::Strike') };
is $t1->date, 1420502400, 'date';
is $t2->title, 'FreeBSD 7.1 i386.DVD.iso', 'title';
like $t1->torrent, qr/^d/, 'torrent file starts with d';
+like $t1->description, qr#GNU/Linux#, 'description contains GNU/Linux';
try {
strike 'aaa';
my $p = strike_search 'Perl', 1;
is @{$p->file_names}, $p->count, 'file_names has count elements';
+
+my $imdb = strike('ED70C185E3E3246F30B2FDB08D504EABED5EEA3F')->imdb;
+is $imdb->{title}, 'The Walking Dead', 'imdb title';