| 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'); |