X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2F50-network.t;h=14a9cb9e72dd1bdda4e169e050ed66b9148324ad;hb=aa0cd8d4eead4039d4a02d1949a43d63b8d05bdc;hp=59e77b158ca3fc75a5967e891866b8afb06bee35;hpb=09f254eddf556b8a0f15da4cdc0acfd2e405d8c3;p=www-offliberty.git diff --git a/t/50-network.t b/t/50-network.t index 59e77b1..14a9cb9 100644 --- a/t/50-network.t +++ b/t/50-network.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl use strict; use warnings; @@ -8,7 +8,7 @@ use WWW::Offliberty qw/off/; my @results; @results = off "http://youtube.com/watch?v=Tj75Arhq5ho"; -is @results, 1, 'youtube'; +cmp_ok @results, '>=', 1, 'youtube'; @results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1; is @results, 2, 'youtube, video_file => 1';