1 # $Id: Test.pm,v 1.1 2006-06-20 16:32:42 mike Exp $
3 package ZOOM::IRSpy::Test;
11 ZOOM::IRSpy::Test - base class for tests in IRSpy
35 return $this->{irspy};
41 die "can't run the base-class test";
44 ### Could include loop detection
50 foreach my $tname (@tname) {
51 my $sub = $this->irspy()->_run_test($tname);
52 $res = $sub if $sub > $res;
65 Mike Taylor, E<lt>mike@indexdata.comE<gt>
67 =head1 COPYRIGHT AND LICENSE
69 Copyright (C) 2006 by Index Data ApS.
71 This library is free software; you can redistribute it and/or modify
72 it under the same terms as Perl itself, either Perl version 5.8.7 or,
73 at your option, any later version of Perl 5 you may have available.