1 # $Id: Test.pm,v 1.3 2006-07-21 11:49:27 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";
49 foreach my $tname (@tname) {
50 my $sub = $this->irspy()->_run_test($tname);
51 $res = $sub if $sub > $res;
64 Mike Taylor, E<lt>mike@indexdata.comE<gt>
66 =head1 COPYRIGHT AND LICENSE
68 Copyright (C) 2006 by Index Data ApS.
70 This library is free software; you can redistribute it and/or modify
71 it under the same terms as Perl itself, either Perl version 5.8.7 or,
72 at your option, any later version of Perl 5 you may have available.