1 # $Id: Test.pm,v 1.6 2006-10-13 10:08:57 sondberg Exp $
3 package ZOOM::IRSpy::Test;
10 our @EXPORT = qw(isodate);
14 ZOOM::IRSpy::Test - base class for tests in IRSpy
32 die "can't start the base-class test";
37 # Utility function, really nothing to do with IRSpy
41 my($sec, $min, $hour, $mday, $mon, $year) = localtime($time);
42 return sprintf("%04d-%02d-%02dT%02d:%02d:%02d",
43 $year+1900, $mon+1, $mday, $hour, $min, $sec);
53 Mike Taylor, E<lt>mike@indexdata.comE<gt>
55 =head1 COPYRIGHT AND LICENSE
57 Copyright (C) 2006 by Index Data ApS.
59 This library is free software; you can redistribute it and/or modify
60 it under the same terms as Perl itself, either Perl version 5.8.7 or,
61 at your option, any later version of Perl 5 you may have available.