]> iEval git - www-offliberty.git/blob - t/50-network.t
Use cmp_ok with >= instead of is
[www-offliberty.git] / t / 50-network.t
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4
5 use Test::RequiresInternet 'offliberty.com' => 80;
6 use Test::More tests => 2;
7 use WWW::Offliberty qw/off/;
8
9 my @results;
10 @results = off "http://youtube.com/watch?v=Tj75Arhq5ho";
11 cmp_ok @results, '>=', 1, 'youtube';
12
13 @results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1;
14 is @results, 2, 'youtube, video_file => 1';
This page took 0.047892 seconds and 4 git commands to generate.