Commit | Line | Data |
---|---|---|
0f95fc5f MG |
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"'); |