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

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

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

use Lyrics::Fetcher;
use Lyrics::Fetcher::LyricsTranslate;

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

like (
	Lyrics::Fetcher->fetch('Lyube', 'Kombat', 'LyricsTranslate'),
	qr/soldiers/i,
	'usage via Lyrics::Fetcher');

like (
	Lyrics::Fetcher::LyricsTranslate->fetch('Lyube', 'Kombat', 'English'),
	qr/soldiers/i,
	'language selection: English');

like (
	Lyrics::Fetcher::LyricsTranslate->fetch('Lyube', 'Kombat', 'English'),
	qr/soldiers/i,
	'language selection: 328');

like (
	Lyrics::Fetcher::LyricsTranslate->fetch('Lyube', 'Kombat', 'Transliteration'),
	qr/soldaty/i,
	'language selection: Transliteration');
Commit	Line	Data
	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');