fixes to allow test harness to run through all VCDisplay implementations during

testing.
This commit is contained in:
kestes%walrus.com 2002-12-10 19:35:50 +00:00
Родитель 11f6a3b1e9
Коммит bc8811d60c
1 изменённых файлов: 32 добавлений и 2 удалений

Просмотреть файл

@ -8,8 +8,8 @@
# VCDisplay module for CVSWeb. # VCDisplay module for CVSWeb.
# $Revision: 1.6 $ # $Revision: 1.7 $
# $Date: 2001-07-20 19:05:01 $ # $Date: 2002-12-10 19:35:50 $
# $Author: kestes%walrus.com $ # $Author: kestes%walrus.com $
# $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/lib/VCDisplay.pm,v $ # $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/lib/VCDisplay.pm,v $
# $Name: $ # $Name: $
@ -66,6 +66,36 @@ $IMPLS = ( ($TinderConfig::VCDisplayImpl) ||
main::require_modules($IMPLS); main::require_modules($IMPLS);
@ISA=($IMPLS);
$VCDisplay = VCDisplay->new();
$DEBUG = 1; $DEBUG = 1;
sub new {
my $type = shift;
my %params = @_;
my $self = {};
bless $self, $type;
}
# call the implemenation defined functions, OO notionation looks
# peculiar for this package so we do this instead.
sub source {
return $VCDisplay->SUPER::source(@_);
}
sub guess {
return $VCDisplay->SUPER::guess(@_);
}
sub query {
return $VCDisplay->SUPER::query(@_);
}
1; 1;