t/01-network.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More;
   6 use Test::RequiresInternet ('lyricstranslate.com' => 80);
   7
   8 plan tests => 1;
   9
  10 use Lyrics::Fetcher::LyricsTranslate;
  11
  12 like (
  13         Lyrics::Fetcher::LyricsTranslate->fetch('Lyube', 'Kombat'),
  14         qr/soldiers/i,
  15         'lyrics to Lyube - Kombat contain the word "soldiers"');