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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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_]+))',