Changeset: 5c206e0510fe for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=5c206e0510fe
Added Files:
clients/R/Tests/testrandom.R
clients/R/Tests/testrandom.reqtests
clients/R/Tests/testrandom.stable.err
clients/R/Tests/testrandom.stable.out
Modified Files:
clients/R/Tests/All
Branch: default
Log Message:
Attempt at a test case for Bug 3730
diffs (134 lines):
diff --git a/clients/R/Tests/All b/clients/R/Tests/All
--- a/clients/R/Tests/All
+++ b/clients/R/Tests/All
@@ -6,3 +6,5 @@ HAVE_LIBR?survey
HAVE_LIBR?dplyr
HAVE_LIBR?dplyr-flights
HAVE_LIBR?dbapply
+HAVE_LIBR?testrandom
+
diff --git a/clients/R/Tests/testrandom.R b/clients/R/Tests/testrandom.R
new file mode 100644
--- /dev/null
+++ b/clients/R/Tests/testrandom.R
@@ -0,0 +1,29 @@
+# Mtest boilerplate
+ll <- NULL
+if (Sys.getenv("TSTTRGDIR") != "") {
+ ll <- paste0(Sys.getenv("TSTTRGDIR"),"/rlibdir")
+}
+library(MonetDB.R,quietly=T,lib.loc=ll)
+
+args <- commandArgs(trailingOnly = TRUE)
+dbport <- 50000
+dbname <- "mTests_clients_R"
+if (length(args) > 0)
+ dbport <- args[[1]]
+if (length(args) > 1)
+ dbname <- args[[2]]
+
+db <- dbConnect(MonetDB(), port=dbport, dbname=dbname, wait=T)
+stopifnot(dbIsValid(db))
+# End Mtest boilerplate
+
+out <- NULL
+for ( i in 1:1000 ){
+ out <- c(out, dbGetQuery(db , "SELECT * FROM (SELECT 1 AS col UNION ALL
SELECT 2 AS col) AS temp SAMPLE 0.5"))
+}
+dbDisconnect(db)
+
+tt <- table(as.integer(out))
+stopifnot(abs(1 - tt[[1]]/tt[[2]]) < 0.4)
+
+print("SUCCESS")
diff --git a/clients/R/Tests/testrandom.reqtests
b/clients/R/Tests/testrandom.reqtests
new file mode 100644
--- /dev/null
+++ b/clients/R/Tests/testrandom.reqtests
@@ -0,0 +1,1 @@
+dbi
diff --git a/clients/R/Tests/testrandom.stable.err
b/clients/R/Tests/testrandom.stable.err
new file mode 100644
--- /dev/null
+++ b/clients/R/Tests/testrandom.stable.err
@@ -0,0 +1,37 @@
+stderr of test 'testrandom` in directory 'clients/R` itself:
+
+
+# 15:18:50 >
+# 15:18:50 > "mserver5" "--debug=10" "--set" "gdk_nr_threads=0" "--set"
"mapi_open=true" "--set" "mapi_port=37766" "--set"
"mapi_usock=/var/tmp/mtest-40189/.s.monetdb.37766" "--set" "monet_prompt="
"--forcemito" "--set" "mal_listing=2"
"--dbpath=/Users/hannes/monetdb-install/var/MonetDB/mTests_clients_R" "--set"
"mal_listing=0" "--set" "embedded_r=yes"
+# 15:18:50 >
+
+# builtin opt gdk_dbpath =
/Users/hannes/monetdb-install/var/monetdb5/dbfarm/demo
+# builtin opt gdk_debug = 0
+# builtin opt gdk_vmtrim = no
+# 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 = 37766
+# cmdline opt mapi_usock = /var/tmp/mtest-40189/.s.monetdb.37766
+# cmdline opt monet_prompt =
+# cmdline opt mal_listing = 2
+# cmdline opt gdk_dbpath =
/Users/hannes/monetdb-install/var/MonetDB/mTests_clients_R
+# cmdline opt mal_listing = 0
+# cmdline opt embedded_r = yes
+# cmdline opt gdk_debug = 536870922
+
+# 15:18:51 >
+# 15:18:51 > "R" "--vanilla" "--slave" "--args" "37766"
+# 15:18:51 >
+
+
+# 15:18:55 >
+# 15:18:55 > "Done."
+# 15:18:55 >
+
diff --git a/clients/R/Tests/testrandom.stable.out
b/clients/R/Tests/testrandom.stable.out
new file mode 100644
--- /dev/null
+++ b/clients/R/Tests/testrandom.stable.out
@@ -0,0 +1,38 @@
+stdout of test 'testrandom` in directory 'clients/R` itself:
+
+
+# 15:18:50 >
+# 15:18:50 > "mserver5" "--debug=10" "--set" "gdk_nr_threads=0" "--set"
"mapi_open=true" "--set" "mapi_port=37766" "--set"
"mapi_usock=/var/tmp/mtest-40189/.s.monetdb.37766" "--set" "monet_prompt="
"--forcemito" "--set" "mal_listing=2"
"--dbpath=/Users/hannes/monetdb-install/var/MonetDB/mTests_clients_R" "--set"
"mal_listing=0" "--set" "embedded_r=yes"
+# 15:18:50 >
+
+# MonetDB 5 server v11.22.0
+# This is an unreleased version
+# Serving database 'mTests_clients_R', using 4 threads
+# Compiled for x86_64-apple-darwin14.4.0/64bit with 64bit OIDs and 128bit
integers dynamically linked
+# Found 16.000 GiB available main-memory.
+# Copyright (c) 1993-July 2008 CWI.
+# Copyright (c) August 2008-2015 MonetDB B.V., all rights reserved
+# Visit http://www.monetdb.org/ for further information
+# Listening for connection requests on mapi:monetdb://dakar.da.cwi.nl:37766/
+# Listening for UNIX domain connection requests on
mapi:monetdb:///var/tmp/mtest-40189/.s.monetdb.37766
+# MonetDB/GIS module loaded
+# Start processing logs sql/sql_logs version 52200
+# Start reading the write-ahead log 'sql_logs/sql/log.8'
+# Finished reading the write-ahead log 'sql_logs/sql/log.8'
+# Finished processing logs sql/sql_logs
+# MonetDB/SQL module loaded
+# MonetDB/R module loaded
+
+Ready.
+
+# 15:18:51 >
+# 15:18:51 > "R" "--vanilla" "--slave" "--args" "37766"
+# 15:18:51 >
+
+[1] TRUE
+[1] "SUCCESS"
+
+# 15:18:55 >
+# 15:18:55 > "Done."
+# 15:18:55 >
+
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list
