From 95f6ce0cea5bb4db51f177a8147ebc9888599712 Mon Sep 17 00:00:00 2001
From: Toni Gundogdu <legatvs@gmail.com>
Date: Thu, 28 Nov 2013 18:43:07 +0200
Subject: [PATCH] tests: expire.t: Re-enable, update arte URL and pattern

Signed-off-by: Toni Gundogdu <legatvs@gmail.com>
---
 tests/t/expire.t | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/t/expire.t b/tests/t/expire.t
index fb81eb2..8dffb48 100644
--- a/tests/t/expire.t
+++ b/tests/t/expire.t
@@ -28,18 +28,18 @@ plan skip_all => "LWP::UserAgent required for testing" if $@;
 use Test::Quvi;
 
 my $q = Test::Quvi->new;
-plan skip_all => "FIXME";
+#plan skip_all => "FIXME";
 plan skip_all => "TEST_SKIP rule" if $q->test_skip("expire");
 
 my $ua = new LWP::UserAgent;
 $ua->env_proxy;
 
 my %h = (
-  "http://videos.arte.tv" => sub {
+  "http://www.arte.tv/guide/fr/plus7.json" => sub {
     my ($p) = @_;
-    my $q = qr|<h2><a href="/(\w\w)/videos/(.*?)"|;
+    my $q = qr|"url":"(.*?)"|;
     my @l;
-    push @l, "http://videos.arte.tv/$1/videos/$2"  while $p =~ /$q/g;
+    push @l, "http://www.arte.tv$1"  while $p =~ /$q/g;
     my $n = ceil(scalar @l/2);
     $l[$n];
   },
-- 
2.11.4.GIT