[lyrics-fetcher-lyricstranslate.git] / t / 01-network.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More;
use Test::RequiresInternet ('lyricstranslate.com' => 80);

plan tests => 1;

use Lyrics::Fetcher::LyricsTranslate;

like (
	Lyrics::Fetcher::LyricsTranslate->fetch('Lyube', 'Kombat'),
	qr/soldiers/i,
	'lyrics to Lyube - Kombat contain the word "soldiers"');
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"');