Fix tests, bump version and update Changes

diff --git a/Changes b/Changes
index 23cc60fc0d317b12b7b58d136690736dcda82153..bb33ad6429046796d396b2e1aead1c9ac2a8ebda 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension WWW::Offliberty.
 
+1.000006 2017-08-18T18:00+08:00
+ - Change test video from Youtube to Vimeo as Offliberty's Youtube
+   support is broken
+
 1.000005 2017-05-20T13:31+01:00
  - Change test video *again* to one that's unlikely to be deleted
 

diff --git a/README b/README
index 996d2ce8294aaef908b84e4b54e08fdb486e170e..7bbf8f9df67a8fee053e008837fc6755c5c15b27 100644 (file)
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-WWW-Offliberty version 1.000004
+WWW-Offliberty version 1.000006
 ===============================
 
 Offliberty is a service that takes a URL to some media (for example a

diff --git a/lib/WWW/Offliberty.pm b/lib/WWW/Offliberty.pm
index b2fdbcdfe7a5c95df12ce86b73f7be34a87127be..0edd0ef407f25b0497f448d005563800f3a35742 100644 (file)
--- a/lib/WWW/Offliberty.pm
+++ b/lib/WWW/Offliberty.pm
@@ -4,7 +4,7 @@ use 5.008009;
 use strict;
 use warnings;
 use parent qw/Exporter/;
-our $VERSION = '1.000005';
+our $VERSION = '1.000006';
 our @EXPORT_OK = qw/off/;
 
 our $OFF_URL = 'http://offliberty.com/off03.php';

diff --git a/t/50-network.t b/t/50-network.t
index 98d0c686e125e89a1fd8afa7b2bebff3ba4216cc..7392c85c8f4727f6f4268f66731ce2d9321b4357 100644 (file)
--- a/t/50-network.t
+++ b/t/50-network.t
@@ -7,11 +7,11 @@ use Test::More tests => 4;
 use WWW::Offliberty qw/off/;
 
 my @results;
-@results = off "https://youtube.com/watch?v=dQw4w9WgXcQ";
-cmp_ok @results, '>=', 1, 'youtube';
+@results = off 'https://vimeo.com/45196609';
+cmp_ok @results, '>=', 1, 'vimeo';
 
-@results = off "https://youtube.com/watch?v=dQw4w9WgXcQ", video_file => 1;
-is @results, 2, 'youtube, video_file => 1';
+@results = off 'https://vimeo.com/45196609', video_file => 1;
+is @results, 2, 'vimeo, video_file => 1';
 
 like $results[1], qr/\.mp4/, 'video URL contains ".mp4"';
 unlike $results[0], qr/offwarning/, 'audio URL doesn\'t contain "offwarning"';