46 lines
1.5 KiB
Perl
46 lines
1.5 KiB
Perl
use Test;
|
|
BEGIN { plan tests => 25 };
|
|
use mwx;
|
|
use strict;
|
|
#&sendmail('mike@fhi-berlin.mpg.de','mike@fhi-berlin.mpg.de','test','MSG','mail');
|
|
|
|
ok(&md5('Makefile.PL'),'a37560d14c32201defbecaa17f23628c');
|
|
|
|
ok(&fsd('2000-10-18 09:54:01'),'18.10.2000 9:54');
|
|
ok(&fsd('0000-00-00 00:00:00'),'');
|
|
ok(&fsd('1999-09-19'),'19.9.1999');
|
|
ok(&fsd('0000-00-00'),'');
|
|
ok(&fsd('08:53:02'),'8:53');
|
|
ok(&fsd('00:00:00'),'0:00');
|
|
ok(&fsd('2000-10-18 09:54:01','date'),'18.10.2000');
|
|
ok(&fsd('2000-10-18 09:54:01','time'),'9:54');
|
|
ok(&tsd('23.12.2002'),'2002-12-23');
|
|
ok(&tsd('24.11.2001 14:12'),'2001-11-24 14:12');
|
|
ok(&tsd('24.11.2001 14:12:23'),'2001-11-24 14:12:23');
|
|
ok(&tsd('0:1'),'00:01');
|
|
|
|
ok(&gnfip('141.14.141.141'),'root.RZ-Berlin.MPG.DE');
|
|
|
|
ok(&mkdatequery("1.1.2002 , 2.2.2003","date"),
|
|
"(date='2002-1-1' OR date='2003-2-2')");
|
|
ok(&mkdatequery("1.11.2002 - 7.11.2002","date"),
|
|
"(date BETWEEN '2002-11-1' AND '2002-11-7')");
|
|
ok(&mkdatequery("> 1.11.2002","date"),"(date > '2002-11-1')");
|
|
|
|
ok(&mknumquery(" 2 - 5 ","number"),"(number BETWEEN 2 AND 5)");
|
|
ok(&mknumquery("11,22 ,33","number"),"(number=11 OR number=22 OR number=33)");
|
|
|
|
ok(&mkquery("tee or cafe",0,'string'),
|
|
"( string LIKE '%tee%') or ( string LIKE '%cafe%')");
|
|
ok(&mkquery("'tee or cafe'",0,'string'),"( string LIKE '%tee or cafe%')");
|
|
|
|
ok(&tosql(' test '),'test');
|
|
ok(&tosql("a'b"),"a''b");
|
|
|
|
ok(&shortstr('0123456789',10),'0123456789');
|
|
ok(&shortstr('0123456789',8),'01234...');
|
|
|
|
print &uniqid() . " " . &uniqid() . " " . &uniqid() . "\n";
|
|
|
|
|