Add timeout()
[irspy-moved-to-github.git] / lib / ZOOM / IRSpy / Test.pm
1 # $Id: Test.pm,v 1.8 2007-04-18 15:24:45 mike Exp $
2
3 package ZOOM::IRSpy::Test;
4
5 use 5.008;
6 use strict;
7 use warnings;
8
9 =head1 NAME
10
11 ZOOM::IRSpy::Test - base class for tests in IRSpy
12
13 =head1 SYNOPSIS
14
15  ## To follow
16
17 =head1 DESCRIPTION
18
19 I<## To follow>
20
21 =cut
22
23 sub subtests { () }
24
25 sub timeout { undef }
26
27 sub start {
28     my $class = shift();
29     my($conn) = @_;
30
31     die "can't start the base-class test";
32 }
33
34
35 =head1 SEE ALSO
36
37 ZOOM::IRSpy
38
39 =head1 AUTHOR
40
41 Mike Taylor, E<lt>mike@indexdata.comE<gt>
42
43 =head1 COPYRIGHT AND LICENSE
44
45 Copyright (C) 2006 by Index Data ApS.
46
47 This library is free software; you can redistribute it and/or modify
48 it under the same terms as Perl itself, either Perl version 5.8.7 or,
49 at your option, any later version of Perl 5 you may have available.
50
51 =cut
52
53 1;