11 $SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
16 getter => 'filegetter',
22 GetOptions("d" => \$debug);
24 push(@INC, dirname(realpath($0)));
27 unless(libvideosite::register_api({
28 _debug => sub { return $debug },
30 die("Error registering API: $libvideosite::error");
33 unless(libvideosite::init()) {
34 die("Could not init libvideosite: $libvideosite::error");
39 printf("Doing self tests:\n");
40 foreach my $g (libvideosite::_grabbers()) {
46 # If there are grabber names given on the command line check
47 # the current name against that list and skip if not present
48 $found = grep { $_ eq $g->{'NAME'} } @ARGV;
55 printf(" %s...", $g->{'NAME'});
62 printf(" no self test\n");
70 printf("\n\n%d succeeded\n%d failed\n%d not testable\n", $success, $fail, $notest);