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";