Update of /cvsroot/monetdb/sql/src/test/BugTracker/Tests
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv30894
Modified Files:
Tag: SQL_2-24
All
Added Files:
Tag: SQL_2-24
mdb_starts_with_sql_debug_64.SF-1999354.py
mdb_starts_with_sql_debug_64.SF-1999354.sql
Log Message:
Add test for bug
mdb_starts_with_sql_debug_64.SF-1999354
--- NEW FILE: mdb_starts_with_sql_debug_64.SF-1999354.py ---
import os, time, sys
def clean_ports(cmd,mapiport,xrpcport):
cmd = cmd.replace('--port=%s' % mapiport,'--port=<mapi_port>')
cmd = cmd.replace('--set mapi_port=%s' % mapiport,'--set
mapi_port=<mapi_port>')
cmd = cmd.replace('--set xrpc_port=%s' % xrpcport,'--set
xrpc_port=<xrpc_port>')
return cmd
def server_start(debug,dbinit):
port = int(os.getenv('MAPIPORT'))
srvcmd = '%s --dbfarm "%s" --dbname "%s" --dbinit="%s" %s' %
(os.getenv('MSERVER'),os.getenv('GDK_DBFARM'), os.getenv('TSTDB'),dbinit,debug)
srvcmd_ = clean_ports(srvcmd,str(port),os.getenv('XRPCPORT'))
sys.stderr.write('#mserver: "%s"\n' % (srvcmd))
sys.stderr.flush()
srv = os.popen(srvcmd, 'w')
time.sleep(2) # give server time to start
return srv
def server_stop(srv):
srv.close()
time.sleep(2) # give server time to stop
def client_load_file(clt, port, file):
f = open(file, 'r')
for line in f:
clt.write(line)
f.close()
def client(lang, file):
cltcmd = '%s' % os.getenv('%s_CLIENT' % lang)
cltcmd_ = clean_ports(cltcmd,os.getenv('MAPIPORT'),os.getenv('XRPCPORT'))
sys.stderr.flush()
sys.stderr.write('#client: "%s"\n' % (cltcmd))
sys.stderr.flush()
clt = os.popen(cltcmd, 'w')
port = int(os.getenv('MAPIPORT'))
client_load_file(clt, port, file)
clt.close()
return '%s ' % (lang)
def main():
if os.getenv('TST_FIVE'):
dbinit = "include sql;"
else:
dbinit = "module(sql_server);"
srv = server_start("--set sql_debug=64",dbinit)
client('SQL' , '%s/../../../sql/ms_functions.sql' % os.getenv('RELSRCDIR'))
client('SQL' , '%s/mdb_starts_with_sql_debug_64.SF-1999354.sql' %
os.getenv('RELSRCDIR'))
server_stop(srv)
main()
U All
Index: All
===================================================================
RCS file: /cvsroot/monetdb/sql/src/test/BugTracker/Tests/All,v
retrieving revision 1.93.2.12
retrieving revision 1.93.2.13
diff -u -d -r1.93.2.12 -r1.93.2.13
--- All 17 Jun 2008 09:31:07 -0000 1.93.2.12
+++ All 22 Jun 2008 14:46:49 -0000 1.93.2.13
@@ -131,3 +131,4 @@
proc_insert_into.SF-1958572
nested_views_algebra_version.SF-1993765
copy_into_crash.SF-1993999
+mdb_starts_with_sql_debug_64.SF-1999354
--- NEW FILE: mdb_starts_with_sql_debug_64.SF-1999354.sql ---
CREATE FUNCTION f2(deg float, truncat int , precision int)
RETURNS varchar(32)
BEGIN
DECLARE
d float,
nd int,
np int,
q varchar(10),
t varchar(16);
--
SET t = '00:00:00.0';
IF (precision < 1)
THEN SET precision = 1;
END IF;
IF (precision > 10)
THEN SET precision = 10;
END IF;
SET np = 0;
WHILE (np < precision-1) DO
SET t = t||'0';
SET np = np + 1;
END WHILE;
SET d = ABS(deg/15.0);
-- degrees
SET nd = FLOOR(d);
SET q = LTRIM(CAST(nd as varchar(2)));
SET t = MS_STUFF(t,3-LENGTH(q),LENGTH(q), q);
-- minutes
SET d = 60.0 * (d-nd);
SET nd = FLOOR(d);
SET q = LTRIM(CAST(nd as varchar(4)));
SET t = MS_STUFF(t,6-LENGTH(q),LENGTH(q), q);
-- seconds
SET d = MS_ROUND( 60.0 * (d-nd),precision,truncat );
SET q = LTRIM(STR(d,precision));
SET t = MS_STUFF(t,10+precision-LENGTH(q),LENGTH(q), q);
-- SET d = 60.0 * (d-nd);
-- SET q = LTRIM(STR(d,3));
-- SET t = MS_STUFF(t,13-LENGTH(q),LENGTH(q), q);
--
RETURN(t);
END;
SELECT f2(1,2,3);
--SELECT fIAUFromEq(p.ra,p."dec") FROM PhotoPrimary as p;
drop function f2;
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php
_______________________________________________
Monetdb-sql-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-sql-checkins
