]> iEval git - www-offliberty.git/blame - t/50-network.t
Fix perlcritic complaints
[www-offliberty.git] / t / 50-network.t
CommitLineData
a0765f3d 1#!/usr/bin/perl
de48830a
MG
2use strict;
3use warnings;
4
09f254ed 5use Test::RequiresInternet 'offliberty.com' => 80;
9dd40f61 6use Test::More tests => 4;
de48830a
MG
7use WWW::Offliberty qw/off/;
8
045faed6
MG
9my @results;
10@results = off "http://youtube.com/watch?v=Tj75Arhq5ho";
d6ea2a75 11cmp_ok @results, '>=', 1, 'youtube';
de48830a 12
045faed6
MG
13@results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1;
14is @results, 2, 'youtube, video_file => 1';
9dd40f61
MG
15
16like $results[1], qr/\.mp4/, 'video URL contains ".mp4"';
17unlike $results[0], qr/offwarning/, 'audio URL doesn\'t contain "offwarning"';
This page took 0.022821 seconds and 4 git commands to generate.