1 # $Id: Test.pm,v 1.4 2006-10-06 11:33:07 mike 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";
36 # Utility function, really nothing to do with IRSpy
40 my($sec, $min, $hour, $mday, $mon, $year) = localtime($time);
41 return sprintf("%04d-%02d-%02dT%02d:%02d:%02d",
42 $year+1900, $mon+1, $mday, $hour, $min, $sec);
52 Mike Taylor, E<lt>mike@indexdata.comE<gt>
54 =head1 COPYRIGHT AND LICENSE
56 Copyright (C) 2006 by Index Data ApS.
58 This library is free software; you can redistribute it and/or modify
59 it under the same terms as Perl itself, either Perl version 5.8.7 or,
60 at your option, any later version of Perl 5 you may have available.