[prev in list] [next in list] [prev in thread] [next in thread] 

List:       monetdb-sql-checkins
Subject:    [Monetdb-sql-checkins] sql/src/test/BugTracker/Tests
From:       Romulo Goncalves <romulog () users ! sourceforge ! net>
Date:       2008-06-30 15:49:44
Message-ID: E1KDLdS-0001ef-Om () mail ! sourceforge ! net
[Download RAW message or body]

Update of /cvsroot/monetdb/sql/src/test/BugTracker/Tests
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv9034

Modified Files:
      Tag: SQL_2-24
	All 
Added Files:
      Tag: SQL_2-24
	bat_descriptor_problem.SF-1997643.sql 
Log Message:
Add test for bug:
bat_descriptor_problem.SF-199764


U All
Index: All
===================================================================
RCS file: /cvsroot/monetdb/sql/src/test/BugTracker/Tests/All,v
retrieving revision 1.93.2.13
retrieving revision 1.93.2.14
diff -u -d -r1.93.2.13 -r1.93.2.14
--- All	22 Jun 2008 14:46:49 -0000	1.93.2.13
+++ All	30 Jun 2008 15:49:41 -0000	1.93.2.14
@@ -132,3 +132,4 @@
 nested_views_algebra_version.SF-1993765
 copy_into_crash.SF-1993999
 mdb_starts_with_sql_debug_64.SF-1999354
+bat_descriptor_problem.SF-1997643

--- NEW FILE: bat_descriptor_problem.SF-1997643.sql ---
CREATE FUNCTION degrees(r double)
RETURNS double
RETURN r*180/pi();

CREATE FUNCTION fHtm(x float, y float, z float, radius float)
RETURNS TABLE (
HtmIDStart bigint ,
HtmIDEnd bigint
)
BEGIN
RETURN TABLE (SELECT 1,2);
END;
create table t1 (id int, age int);

CREATE FUNCTION f1(ra float, deci float,
radius float, zoo int)
RETURNS TABLE (
fieldID bigint ,
distance float -- distance in arc minutes
)
BEGIN
--
DECLARE nx float,ny float,nz float;
SET nx = ra;
SET ny = ra;
SET nz = deci;
DECLARE TABLE cover(
htmidStart bigint, htmidEnd bigint
);
INSERT into cover
SELECT htmidStart, htmidEnd
FROM fHtm(nx,ny,nz,radius);
RETURN TABLE(SELECT age,
(2*DEGREES(ASIN(sqrt(power(nx-id,2)+power(ny-id,2)+power(nz-id,2))/2))*60)
as val
FROM cover H, t1 F );
END;

select * from f1(1,2,3,4) n;

drop function f1;
drop table t1;
drop function fHtm;


-------------------------------------------------------------------------
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
Monetdb-sql-checkins@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/monetdb-sql-checkins
[prev in list] [next in list] [prev in thread] [next in thread]