From: Marius Gavrilescu <marius@ieval.ro>
Date: Sun, 6 Dec 2015 21:52:50 +0000 (+0200)
Subject: Add some tests that attempt to catch dummy results
X-Git-Tag: 1.000001~1
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=9dd40f61d7a9d4f3339b10fa63e4344f256b6e81;hp=335dcc3112a0e936fe993ac6f3dc193368dfcf66;p=www-offliberty.git

Add some tests that attempt to catch dummy results
---

diff --git a/t/50-network.t b/t/50-network.t
index 14a9cb9..c67d2d3 100644
--- a/t/50-network.t
+++ b/t/50-network.t
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use Test::RequiresInternet 'offliberty.com' => 80;
-use Test::More tests => 2;
+use Test::More tests => 4;
 use WWW::Offliberty qw/off/;
 
 my @results;
@@ -12,3 +12,6 @@ cmp_ok @results, '>=', 1, 'youtube';
 
 @results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1;
 is @results, 2, 'youtube, video_file => 1';
+
+like $results[1], qr/\.mp4/, 'video URL contains ".mp4"';
+unlike $results[0], qr/offwarning/, 'audio URL doesn\'t contain "offwarning"';