Add description support

[webservice-strike.git] / t / WebService-Strike.t

diff --git a/t/WebService-Strike.t b/t/WebService-Strike.t
index 7713555614d44afcd20e1aa777f9a2d6c55a90a1..7b7a98441de49a091433b2965d8cea71ef9a5e83 100644 (file)
--- a/t/WebService-Strike.t
+++ b/t/WebService-Strike.t
@@ -4,7 +4,7 @@ use warnings;
 
 use Data::Dumper qw/Dumper/;
 use Test::RequiresInternet qw/getstrike.net 443/;
-use Test::More tests => 9;
+use Test::More tests => 10;
 use Try::Tiny;
 BEGIN { use_ok('WebService::Strike') };
 
@@ -25,6 +25,7 @@ subtest 'order' => sub {
 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';