Changeset: d450f7f78dba for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=d450f7f78dba
Added Files:
monetdb5/extras/rapi/Tests/rapi00.stable.err
monetdb5/extras/rapi/Tests/rapi00.stable.out
monetdb5/extras/rapi/Tests/rapi03.mal
Modified Files:
monetdb5/extras/rapi/Tests/All
monetdb5/extras/rapi/Tests/rapi00.mal
monetdb5/extras/rapi/Tests/rapi02.stable.out
Branch: RIntegration
Log Message:
Test output and open issues
diffs (247 lines):
diff --git a/monetdb5/extras/rapi/Tests/All b/monetdb5/extras/rapi/Tests/All
--- a/monetdb5/extras/rapi/Tests/All
+++ b/monetdb5/extras/rapi/Tests/All
@@ -1,3 +1,4 @@
HAVE_LIBR?rapi00
HAVE_LIBR?rapi01
-HAVE_LIBR?rapi02
\ No newline at end of file
+HAVE_LIBR?rapi02
+HAVE_LIBR?rapi03
diff --git a/monetdb5/extras/rapi/Tests/rapi00.mal
b/monetdb5/extras/rapi/Tests/rapi00.mal
--- a/monetdb5/extras/rapi/Tests/rapi00.mal
+++ b/monetdb5/extras/rapi/Tests/rapi00.mal
@@ -17,6 +17,3 @@ r:bat[:oid,:dbl] := rapi.eval("print(arg
io.print(r);
-(t:bat[:oid,:dbl], s:bat[:oid,:dbl]) := rapi.eval("someval2 <- Re(fft(arg2));
print(someval2); return(data.frame(someval2,someval2));",b);
-io.print(t,s);
-
diff --git a/monetdb5/extras/rapi/Tests/rapi00.stable.err
b/monetdb5/extras/rapi/Tests/rapi00.stable.err
new file mode 100644
--- /dev/null
+++ b/monetdb5/extras/rapi/Tests/rapi00.stable.err
@@ -0,0 +1,29 @@
+stderr of test 'rapi00` in directory 'monetdb5/extras/rapi` itself:
+
+
+# 19:43:24 >
+# 19:43:24 > "mserver5" "--debug=10" "--set" "gdk_nr_threads=0" "--set"
"mapi_open=true" "--set" "mapi_port=31781" "--set"
"mapi_usock=/var/tmp/mtest-13409/.s.monetdb.31781" "--set" "monet_prompt="
"--forcemito" "--set" "mal_listing=2"
"--dbpath=/export/scratch1/mk/rapi//Linux/var/MonetDB/mTests_monetdb5_extras_rapi"
"rapi00.mal"
+# 19:43:24 >
+
+# builtin opt gdk_dbpath =
/export/scratch1/mk/rapi//Linux/var/monetdb5/dbfarm/demo
+# builtin opt gdk_debug = 0
+# builtin opt gdk_vmtrim = yes
+# builtin opt monet_prompt = >
+# builtin opt monet_daemon = no
+# builtin opt mapi_port = 50000
+# builtin opt mapi_open = false
+# builtin opt mapi_autosense = false
+# builtin opt sql_optimizer = default_pipe
+# builtin opt sql_debug = 0
+# cmdline opt gdk_nr_threads = 0
+# cmdline opt mapi_open = true
+# cmdline opt mapi_port = 31781
+# cmdline opt mapi_usock = /var/tmp/mtest-13409/.s.monetdb.31781
+# cmdline opt monet_prompt =
+# cmdline opt mal_listing = 2
+# cmdline opt gdk_dbpath =
/export/scratch1/mk/rapi//Linux/var/MonetDB/mTests_monetdb5_extras_rapi
+
+# 19:43:25 >
+# 19:43:25 > "Done."
+# 19:43:25 >
+
diff --git a/monetdb5/extras/rapi/Tests/rapi00.stable.out
b/monetdb5/extras/rapi/Tests/rapi00.stable.out
new file mode 100644
--- /dev/null
+++ b/monetdb5/extras/rapi/Tests/rapi00.stable.out
@@ -0,0 +1,77 @@
+stdout of test 'rapi00` in directory 'monetdb5/extras/rapi` itself:
+
+
+# 19:43:24 >
+# 19:43:24 > "mserver5" "--debug=10" "--set" "gdk_nr_threads=0" "--set"
"mapi_open=true" "--set" "mapi_port=31781" "--set"
"mapi_usock=/var/tmp/mtest-13409/.s.monetdb.31781" "--set" "monet_prompt="
"--forcemito" "--set" "mal_listing=2"
"--dbpath=/export/scratch1/mk/rapi//Linux/var/MonetDB/mTests_monetdb5_extras_rapi"
"rapi00.mal"
+# 19:43:24 >
+
+# MonetDB 5 server v11.16.0
+# This is an unreleased version
+# Serving database 'mTests_monetdb5_extras_rapi', using 8 threads
+# Compiled for x86_64-unknown-linux-gnu/64bit with 64bit OIDs dynamically
linked
+# Found 15.591 GiB available main-memory.
+# Copyright (c) 1993-July 2008 CWI.
+# Copyright (c) August 2008-2013 MonetDB B.V., all rights reserved
+# Visit http://www.monetdb.org/ for further information
+# Listening for connection requests on mapi:monetdb://vienna.ins.cwi.nl:31781/
+# Listening for UNIX domain connection requests on
mapi:monetdb:///var/tmp/mtest-13409/.s.monetdb.31781
+# MonetDB/GIS module loaded
+# MonetDB/JAQL module loaded
+# MonetDB/SQL module loaded
+function user.main():void;
+# Hannes Muehleisen example
+ b := bat.new(:oid,:int);
+ bat.append(b,1804289383);
+ bat.append(b,846930886);
+ bat.append(b,1681692777);
+ bat.append(b,1714636915);
+ bat.append(b,1957747793);
+ bat.append(b,424238335);
+ bat.append(b,719885386);
+ bat.append(b,1649760492);
+ bat.append(b,596516649);
+ bat.append(b,1189641421);
+ io.print(b);
+ r:bat[:oid,:dbl] := rapi.eval("print(arg1);someval <- Re(fft(arg1));
print(someval); return(someval);",b);
+ io.print(r);
+end main;
+#--------------------------#
+# h t # name
+# void int # type
+#--------------------------#
+[ 0@0, 1804289383 ]
+[ 1@0, 846930886 ]
+[ 2@0, 1681692777 ]
+[ 3@0, 1714636915 ]
+[ 4@0, 1957747793 ]
+[ 5@0, 424238335 ]
+[ 6@0, 719885386 ]
+[ 7@0, 1649760492 ]
+[ 8@0, 596516649 ]
+[ 9@0, 1189641421 ]
+# User R expression: print(arg1);someval <- Re(fft(arg1)); print(someval);
return(someval);
+# Executed R expression ret <-
as.data.frame((function(arg1){print(arg1);someval <- Re(fft(arg1));
print(someval); return(someval);})(arg1),nm=NA,stringsAsFactors=F)
+
+# [1]# 1804289383# 846930886# 1681692777# 1714636915# 1957747793# 424238335#
+# [7]# 719885386# 1649760492# 596516649# 1189641421#
+# [1]# 12585340037# 525771363# -879667492# 2456894288# 158316769#
934923939#
+# [7]# 158316769# 2456894288# -879667492# 525771363#
+#--------------------------#
+# h t # name
+# void dbl # type
+#--------------------------#
+[ 0@0, 12585340037 ]
+[ 1@0, 525771362.90836447 ]
+[ 2@0, -879667492.32359219 ]
+[ 3@0, 2456894287.5916357 ]
+[ 4@0, 158316768.82359338 ]
+[ 5@0, 934923939 ]
+[ 6@0, 158316768.82359338 ]
+[ 7@0, 2456894287.5916352 ]
+[ 8@0, -879667492.32359219 ]
+[ 9@0, 525771362.90836453 ]
+
+# 19:43:25 >
+# 19:43:25 > "Done."
+# 19:43:25 >
+
diff --git a/monetdb5/extras/rapi/Tests/rapi02.stable.out
b/monetdb5/extras/rapi/Tests/rapi02.stable.out
--- a/monetdb5/extras/rapi/Tests/rapi02.stable.out
+++ b/monetdb5/extras/rapi/Tests/rapi02.stable.out
@@ -91,6 +91,22 @@ function user.main():void;
bat.append(bstr,nil:str);
rstr:bat[:oid,:int] := rapi.eval("unlist(lapply(arg1,nchar))",bstr);
io.print(rstr);
+# output types testing
+ binto := bat.new(:oid,:int);
+ bat.append(binto,1804289383:int);
+ bat.append(binto,846930886:int);
+ bat.append(binto,1681692777:int);
+ bat.append(binto,1714636915:int);
+ rintbi:bat[:oid,:int] := rapi.eval("arg1",binto);
+ io.print(rintbi);
+ rintbi2:bat[:oid,:int] := rapi.eval("as.integer(arg1)",binto);
+ io.print(rintbi2);
+ rintbl:bat[:oid,:lng] := rapi.eval("as.integer(arg1)",binto);
+ io.print(rintbl);
+ rintbd:bat[:oid,:dbl] := rapi.eval("as.numeric(arg1)",binto);
+ io.print(rintbd);
+ rintbs:bat[:oid,:str] := rapi.eval("as.character(arg1)",binto);
+ io.print(rintbs);
end main;
#Running R expression Re(fft(na.omit(arg1)))
#--------------------------#
@@ -172,6 +188,61 @@ end main;
[ 1@0, 20 ]
[ 2@0, 0 ]
[ 3@0, 1 ]
+# User R expression: arg1
+# Executed R expression ret <-
as.data.frame((function(arg1){arg1})(arg1),nm=NA,stringsAsFactors=F)
+
+#--------------------------#
+# h t # name
+# void int # type
+#--------------------------#
+[ 0@0, 1804289383 ]
+[ 1@0, 846930886 ]
+[ 2@0, 1681692777 ]
+[ 3@0, 1714636915 ]
+# User R expression: as.integer(arg1)
+# Executed R expression ret <-
as.data.frame((function(arg1){as.integer(arg1)})(arg1),nm=NA,stringsAsFactors=F)
+
+#--------------------------#
+# h t # name
+# void int # type
+#--------------------------#
+[ 0@0, 1804289383 ]
+[ 1@0, 846930886 ]
+[ 2@0, 1681692777 ]
+[ 3@0, 1714636915 ]
+# User R expression: as.integer(arg1)
+# Executed R expression ret <-
as.data.frame((function(arg1){as.integer(arg1)})(arg1),nm=NA,stringsAsFactors=F)
+
+#--------------------------#
+# h t # name
+# void lng # type
+#--------------------------#
+[ 0@0, 1804289383 ]
+[ 1@0, 846930886 ]
+[ 2@0, 1681692777 ]
+[ 3@0, 1714636915 ]
+# User R expression: as.numeric(arg1)
+# Executed R expression ret <-
as.data.frame((function(arg1){as.numeric(arg1)})(arg1),nm=NA,stringsAsFactors=F)
+
+#--------------------------#
+# h t # name
+# void dbl # type
+#--------------------------#
+[ 0@0, 1804289383 ]
+[ 1@0, 846930886 ]
+[ 2@0, 1681692777 ]
+[ 3@0, 1714636915 ]
+# User R expression: as.character(arg1)
+# Executed R expression ret <-
as.data.frame((function(arg1){as.character(arg1)})(arg1),nm=NA,stringsAsFactors=F)
+
+#--------------------------#
+# h t # name
+# void str # type
+#--------------------------#
+[ 0@0, "1804289383" ]
+[ 1@0, "846930886" ]
+[ 2@0, "1681692777" ]
+[ 3@0, "1714636915" ]
# 15:45:25 >
# 15:45:25 > "Done."
diff --git a/monetdb5/extras/rapi/Tests/rapi03.mal
b/monetdb5/extras/rapi/Tests/rapi03.mal
new file mode 100644
--- /dev/null
+++ b/monetdb5/extras/rapi/Tests/rapi03.mal
@@ -0,0 +1,18 @@
+# Hannes Muehleisen example
+b:= bat.new(:oid,:int);
+bat.append(b,1804289383);
+bat.append(b,846930886);
+bat.append(b,1681692777);
+bat.append(b,1714636915);
+bat.append(b,1957747793);
+bat.append(b,424238335);
+bat.append(b,719885386);
+bat.append(b,1649760492);
+bat.append(b,596516649);
+bat.append(b,1189641421);
+
+io.print(b);
+
+(t:bat[:oid,:dbl], s:bat[:oid,:dbl]) := rapi.eval("someval2 <- Re(fft(arg2));
print(someval2); return(data.frame(someval2,someval2));",b);
+io.print(t,s);
+
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list
