Changeset: bb611deb1591 for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=bb611deb1591
Modified Files:
tools/embedded/Tests/lowlevel.R
Branch: embedded
Log Message:
test case update
diffs (139 lines):
diff --git a/tools/embedded/Tests/lowlevel.R b/tools/embedded/Tests/lowlevel.R
--- a/tools/embedded/Tests/lowlevel.R
+++ b/tools/embedded/Tests/lowlevel.R
@@ -12,11 +12,21 @@ test_that("db starts up", {
expect_warning(monetdb_embedded_startup())
})
+
+test_that("one can connect", {
+ con <- monetdb_embedded_connect()
+ expect_that(con, is_a("monetdb_embedded_connection"))
+ monetdb_embedded_disconnect(con)
+ monetdb_embedded_disconnect(con)
+ expect_error(monetdb_embedded_disconnect(NULL))
+})
+
test_that("db runs queries and returns results", {
- res <- monetdb_embedded_query("SELECT 42")
+ con <- monetdb_embedded_connect()
+ res <- monetdb_embedded_query(con, "SELECT 42")
expect_equal(res$type, 1)
expect_equal(res$tuples$single_value, 42)
- res <- monetdb_embedded_query("SELECT * FROM tables")
+ res <- monetdb_embedded_query(con, "SELECT * FROM tables")
expect_equal(res$type, 1)
expect_is(res$tuples, "data.frame")
expect_true(nrow(res$tuples) > 0)
@@ -24,75 +34,71 @@ test_that("db runs queries and returns r
})
test_that("commit", {
- monetdb_embedded_query("START TRANSACTION")
- monetdb_embedded_query("CREATE TABLE foo (i integer)")
- monetdb_embedded_query("INSERT INTO foo VALUES (42)")
- res <- monetdb_embedded_query("SELECT i FROM foo")
+ con <- monetdb_embedded_connect()
+ monetdb_embedded_query(con, "START TRANSACTION")
+ monetdb_embedded_query(con, "CREATE TABLE foo (i integer)")
+ monetdb_embedded_query(con, "INSERT INTO foo VALUES (42)")
+ res <- monetdb_embedded_query(con, "SELECT i FROM foo")
expect_equal(res$tuples$i, 42)
- monetdb_embedded_query("COMMIT")
- res <- monetdb_embedded_query("SELECT i FROM foo")
+ monetdb_embedded_query(con, "COMMIT")
+ res <- monetdb_embedded_query(con, "SELECT i FROM foo")
expect_equal(res$tuples$i, 42)
- res <- monetdb_embedded_query("SELECT * FROM tables WHERE name='foo'")
+ res <- monetdb_embedded_query(con, "SELECT * FROM tables WHERE
name='foo'")
expect_equal(nrow(res$tuples), 1)
- monetdb_embedded_query("DROP TABLE foo")
+ monetdb_embedded_query(con, "DROP TABLE foo")
})
test_that("rollback works", {
- monetdb_embedded_query("START TRANSACTION")
- monetdb_embedded_query("CREATE TABLE foo (i integer)")
- monetdb_embedded_query("INSERT INTO foo VALUES (42)")
- res <- monetdb_embedded_query("SELECT i FROM foo")
+ con <- monetdb_embedded_connect()
+ monetdb_embedded_query(con, "START TRANSACTION")
+ monetdb_embedded_query(con, "CREATE TABLE foo (i integer)")
+ monetdb_embedded_query(con, "INSERT INTO foo VALUES (42)")
+ res <- monetdb_embedded_query(con, "SELECT i FROM foo")
expect_equal(res$tuples$i, 42)
- monetdb_embedded_query("ROLLBACK")
- res <- monetdb_embedded_query("SELECT * FROM tables WHERE name='foo'")
+ monetdb_embedded_query(con, "ROLLBACK")
+ res <- monetdb_embedded_query(con, "SELECT * FROM tables WHERE
name='foo'")
expect_equal(nrow(res$tuples), 0)
- res <- monetdb_embedded_query("SELECT i FROM foo")
+ res <- monetdb_embedded_query(con, "SELECT i FROM foo")
expect_equal(res$type, "!")
})
test_that("rollback with errors", {
- monetdb_embedded_query("START TRANSACTION")
- res <- monetdb_embedded_query("BULLSHIT")
+ con <- monetdb_embedded_connect()
+ monetdb_embedded_query(con,"START TRANSACTION")
+ res <- monetdb_embedded_query(con, "BULLSHIT")
expect_equal(res$type, "!")
- res <- monetdb_embedded_query("SELECT 1")
+ res <- monetdb_embedded_query(con, "SELECT 1")
expect_equal(res$type, "!")
- monetdb_embedded_query("ROLLBACK")
- res <- monetdb_embedded_query("SELECT 42")
+ monetdb_embedded_query(con, "ROLLBACK")
+ res <- monetdb_embedded_query(con, "SELECT 42")
expect_equal(res$type, 1)
})
test_that("pointless rollback/commit", {
- expect_equal(monetdb_embedded_query("SELECT 1")$type, 1)
- monetdb_embedded_query("COMMIT")
- expect_equal(monetdb_embedded_query("SELECT 1")$type, 1)
- monetdb_embedded_query("ROLLBACK")
- expect_equal(monetdb_embedded_query("SELECT 1")$type, 1)
+ con <- monetdb_embedded_connect()
+ expect_equal(monetdb_embedded_query(con, "SELECT 1")$type, 1)
+ monetdb_embedded_query(con, "COMMIT")
+ expect_equal(monetdb_embedded_query(con, "SELECT 1")$type, 1)
+ monetdb_embedded_query(con, "ROLLBACK")
+ expect_equal(monetdb_embedded_query(con, "SELECT 1")$type, 1)
})
test_that("inserting data", {
- monetdb_embedded_query("CREATE TABLE foo(i INTEGER, j INTEGER)")
- monetdb_embedded_append("foo", data.frame(i=1:10, j=21:30))
- res <- monetdb_embedded_query("SELECT * FROM foo")
+ con <- monetdb_embedded_connect()
+ monetdb_embedded_query(con, "CREATE TABLE foo(i INTEGER, j INTEGER)")
+ monetdb_embedded_append(con, "foo", data.frame(i=1:10, j=21:30))
+ res <- monetdb_embedded_query(con, "SELECT * FROM foo")
expect_equal(nrow(res$tuples), 10)
expect_equal(ncol(res$tuples), 2)
expect_equal(res$tuples$i, 1:10)
expect_equal(res$tuples$j, 21:30)
- monetdb_embedded_query("DROP TABLE foo")
+ monetdb_embedded_query(con, "DROP TABLE foo")
})
test_that("the logger does not misbehave", {
- monetdb_embedded_query("CREATE TABLE foo(i INTEGER, j INTEGER)")
+ monetdb_embedded_query(con, "CREATE TABLE foo(i INTEGER, j INTEGER)")
Sys.sleep(5)
- monetdb_embedded_query("DROP TABLE foo")
+ monetdb_embedded_query(con, "DROP TABLE foo")
})
-# test_that("bigger data", {
-# monetdb_embedded_query("CREATE TABLE lineitem (l_orderkey INT NOT NULL,
l_partkey INT NOT NULL, l_suppkey INT NOT NULL, l_linenumber INT NOT NULL,
l_quantity INTEGER NOT NULL, l_extendedprice DECIMAL(15,2) NOT NULL, l_discount
DECIMAL(15,2) NOT NULL, l_tax DECIMAL(15,2) NOT NULL, l_returnflag VARCHAR(1)
NOT NULL, l_linestatus VARCHAR(1) NOT NULL, l_shipdate DATE NOT NULL,
l_commitdate DATE NOT NULL, l_receiptdate DATE NOT NULL, l_shipinstruct
VARCHAR(25) NOT NULL, l_shipmode VARCHAR(10) NOT NULL, l_comment VARCHAR(44)
NOT NULL, PRIMARY KEY (l_orderkey,l_linenumber))")
-# monetdb_embedded_query("COPY INTO lineitem FROM
'/Users/hannes/Desktop/lineitem.gz'")
-# res <- monetdb_embedded_query("SELECT * FROM lineitem")
-# expect_equal(res$type, 1)
-# expect_equal(nrow(res$tuples), 1000000)
-# expect_equal(ncol(res$tuples), 16)
-# monetdb_embedded_query("DROP TABLE lineitem")
-# })
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list
