-# $Id: Test.pm,v 1.2 2006-07-21 11:30:51 mike Exp $
+# $Id: Test.pm,v 1.8 2007-04-18 15:24:45 mike Exp $
package ZOOM::IRSpy::Test;
=cut
-sub new {
- my $class = shift();
- my($irspy) = @_;
-
- return bless {
- irspy => $irspy,
- }, $class;
-}
-
-
-sub irspy {
- my $this = shift();
- return $this->{irspy};
-}
-
+sub subtests { () }
-sub run {
- my $this = shift();
- die "can't run the base-class test";
-}
+sub timeout { undef }
-### Could include loop detection
-sub run_tests {
- my $this = shift();
- my @tname = @_;
-
- my $res = 0;
- foreach my $tname (@tname) {
- my $sub = $this->irspy()->_run_test($tname);
- $res = $sub if $sub > $res;
- }
+sub start {
+ my $class = shift();
+ my($conn) = @_;
- return $res;
+ die "can't start the base-class test";
}