]> iEval git - www-offliberty.git/blame - t/50-network.t
Add off script
[www-offliberty.git] / t / 50-network.t
CommitLineData
de48830a
MG
1#!/usr/bin/perl -w
2use strict;
3use warnings;
4
5use Test::More;
6use WWW::Offliberty qw/off/;
7
8if ($ENV{NETWORK_TEST}) {
000e3496 9 plan tests => 2;
de48830a 10
000e3496 11 my @results;
de48830a 12
000e3496
MG
13 @results = off "http://youtube.com/watch?v=Tj75Arhq5ho";
14 is @results, 1, 'youtube';
de48830a 15
000e3496
MG
16 @results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1;
17 is @results, 2, 'youtube, video_file => 1';
de48830a 18} else {
000e3496 19 plan skip_all => '$ENV{NETWORK_TEST} not true';
de48830a 20}
This page took 0.01879 seconds and 4 git commands to generate.