t/01-network.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::RequiresInternet ('lyricstranslate.com' => 80);
   6 use Test::More tests => 5;
   7
   8 use Lyrics::Fetcher;
   9 use Lyrics::Fetcher::LyricsTranslate;
  10
  11 like (
  12         Lyrics::Fetcher::LyricsTranslate->fetch('Lyube', 'Kombat'),
  13         qr/soldiers/i,
  14         'lyrics to Lyube - Kombat contain the word "soldiers"');
  15
  16 like (
  17         Lyrics::Fetcher->fetch('Lyube', 'Kombat', 'LyricsTranslate'),
  18         qr/soldiers/i,
  19         'usage via Lyrics::Fetcher');
  20
  21 like (
  22         Lyrics::Fetcher::LyricsTranslate->fetch('Lyube', 'Kombat', 'English'),
  23         qr/soldiers/i,
  24         'language selection: English');
  25
  26 like (
  27         Lyrics::Fetcher::LyricsTranslate->fetch('Lyube', 'Kombat', 'English'),
  28         qr/soldiers/i,
  29         'language selection: 328');
  30
  31 like (
  32         Lyrics::Fetcher::LyricsTranslate->fetch('Lyube', 'Kombat', 'Transliteration'),
  33         qr/soldaty/i,
  34         'language selection: Transliteration');