From: Ralf Ertzinger Date: Sat, 11 Feb 2012 17:22:06 +0000 (+0100) Subject: Add test URLs to BlipTV, Collegehumor, Redtube, Sevenload, Snotr, Wimp and Youtube X-Git-Url: https://git.camperquake.de/gitweb.cgi?p=videosite.git;a=commitdiff_plain;h=045ee5cf473f6cd10907c80b716f87e369773b5e Add test URLs to BlipTV, Collegehumor, Redtube, Sevenload, Snotr, Wimp and Youtube --- diff --git a/videosite/BlipTVGrabber.pm b/videosite/BlipTVGrabber.pm index b59a1f7..2a48541 100644 --- a/videosite/BlipTVGrabber.pm +++ b/videosite/BlipTVGrabber.pm @@ -19,6 +19,8 @@ sub new { my $self = $class->SUPER::new(); $self->{'NAME'} = 'bliptv'; + $self->{_SELFTESTURL} = 'http://blip.tv/rebelliouspixelscom/buffy-vs-edward-twilight-remixed-2274024'; + $self->{_SELFTESTTITLE} = 'Buffy vs Edward (Twilight Remixed)'; $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*blip.tv/\S+/\S+)']; bless($self, $class); diff --git a/videosite/CollegeHumorGrabber.pm b/videosite/CollegeHumorGrabber.pm index 48ccc7b..7fb3cae 100644 --- a/videosite/CollegeHumorGrabber.pm +++ b/videosite/CollegeHumorGrabber.pm @@ -19,6 +19,8 @@ sub new { my $self = $class->SUPER::new(); $self->{'NAME'} = 'collegehumor'; + $self->{_SELFTESTURL} = 'http://www.collegehumor.com/video/5635400/pixar-intro-parody'; + $self->{_SELFTESTTITLE} = 'Pixar Intro Parody'; $self->{'PATTERNS'} = ['(http://www.collegehumor.com/video:(\d+))', '(http://www.collegehumor.com/video/(\d+))']; diff --git a/videosite/RedTubeGrabber.pm b/videosite/RedTubeGrabber.pm index ef757cc..df01837 100644 --- a/videosite/RedTubeGrabber.pm +++ b/videosite/RedTubeGrabber.pm @@ -21,6 +21,8 @@ sub new { my $self = $class->SUPER::new(); $self->{'NAME'} = 'redtube'; + $self->{_SELFTESTURL} = 'http://www.redtube.com/8269'; + $self->{_SELFTESTTITLE} = 'Porn bloopers with pretty girl'; $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*redtube.com/(\d+))']; bless($self, $class); diff --git a/videosite/SevenloadGrabber.pm b/videosite/SevenloadGrabber.pm index 1c7a37b..4d3482f 100644 --- a/videosite/SevenloadGrabber.pm +++ b/videosite/SevenloadGrabber.pm @@ -18,6 +18,8 @@ sub new { my $self = $class->SUPER::new(); $self->{'NAME'} = 'sevenload'; + $self->{_SELFTESTURL} = 'http://de.sevenload.com/videos/uqDvKzh-vilogo-TV-Spot'; + $self->{_SELFTESTTITLE} = 'vilogo TV-Spot'; $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*sevenload.com/videos/(\w+?)-.*)']; bless($self, $class); diff --git a/videosite/SnotrGrabber.pm b/videosite/SnotrGrabber.pm index f251175..3009995 100644 --- a/videosite/SnotrGrabber.pm +++ b/videosite/SnotrGrabber.pm @@ -18,6 +18,8 @@ sub new { my $self = $class->SUPER::new(); $self->{'NAME'} = 'snotr'; + $self->{_SELFTESTURL} = 'http://www.snotr.com/video/1836'; + $self->{_SELFTESTTITLE} = 'Brilliant thief'; $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*snotr\.com/video/(\d+))']; bless($self, $class); diff --git a/videosite/WimpGrabber.pm b/videosite/WimpGrabber.pm index db95e42..e9b14ff 100644 --- a/videosite/WimpGrabber.pm +++ b/videosite/WimpGrabber.pm @@ -19,6 +19,8 @@ sub new { my $self = $class->SUPER::new(); $self->{'NAME'} = 'wimp'; + $self->{_SELFTESTURL} = 'http://www.wimp.com/insanebuilding/'; + $self->{_SELFTESTTITLE} = 'Insane building.'; $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*wimp.com/([^/]+)/?)']; bless($self, $class); diff --git a/videosite/YouTubeGrabber.pm b/videosite/YouTubeGrabber.pm index d0455f9..50a4f5f 100644 --- a/videosite/YouTubeGrabber.pm +++ b/videosite/YouTubeGrabber.pm @@ -55,6 +55,8 @@ sub new { my $self = $class->SUPER::new(); $self->{'NAME'} = 'youtube'; + $self->{_SELFTESTURL} = 'http://www.youtube.com/watch?v=dMH0bHeiRNg'; + $self->{_SELFTESTTITLE} = 'Evolution of Dance - By Judson Laipply'; $self->{'PATTERNS'} = ['(https?://(?:[-a-zA-Z0-9_.]+\.)*youtube\.(?:com|de|co.uk)/watch(?:_popup)?\?(?:.+=.+&)*v=([-a-zA-Z0-9_]+))', '(https?://(?:[-a-zA-Z0-9_.]+\.)*youtube\.(?:com|de|co.uk)/watch\#\!v=([-a-zA-Z0-9_]+))', '(https?://(?:[-a-zA-Z0-9_.]+\.)*youtube\.(?:com|de|co.uk)/v/([-a-zA-Z0-9_]+))',