]> iEval git - www-offliberty.git/blame - t/50-network.t
Change OFF_URL to new version
[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 9my @results;
d59bef60
MG
10@results = off 'https://vimeo.com/45196609';
11cmp_ok @results, '>=', 1, 'vimeo';
de48830a 12
d59bef60
MG
13@results = off 'https://vimeo.com/45196609', video_file => 1;
14is @results, 2, 'vimeo, 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.019309 seconds and 4 git commands to generate.