Merge pull request #5 from mrDrivingDuck/master

Add testing shell

Author: windancer79

test/Assert.R

@@ -0,0 +1,29 @@
+# 
+#
+# @Author -- Jingtang Zhang
+# @Date   -- 2018.8.18, Ningbo
+# @Update -- 2018.8.19, Ningbo
+#
+#
+
+# Config IP address and port who is running DolphinDB server
+ip_addr <- "192.168.137.132"
+port <- 8888
+
+# Count all cases, print error message
+assert <- function(record, item, target, current) {
+    
+    if (TRUE == all.equal(target, current)) {
+        record[1] <- record[1] + 1L
+    } else {
+        print(paste("ITEM:", item, "FAILED"))
+    }
+    record[2] <- record[2] + 1L
+    return (record)
+}
+
+# Print testing result
+printer <- function(record) {
+    msg <- paste("Build Failed:", as.character(record[2]-record[1]), "/", as.character(record[2]))
+    print(msg, quote = FALSE)
+}

test/TestAnyVector.R

@@ -2,19 +2,29 @@
 #
 # @Author -- Jingtang Zhang
 # @Date   -- 2018.8.1, Hangzhou
-# @Update -- 2018.8.17, Hangzhou
+# @Update -- 2018.8.19, Ningbo
 #
 #
 
+source("Assert.R")
+
 library("RDolphinDB")
-conn <- dbConnect(DolphinDB(), "192.168.137.132", 8888)
+conn <- dbConnect(DolphinDB(), ip_addr, port)
 if (conn@connected == TRUE) {
 
-    ptm <- proc.time()
-    result <- dbRun(conn, "(1, table(2018.07.22 2018.08.21 as date, `Hello`World as str),5.5, 1 2 3, 2012.06M)")
-    print(result)
-    print(class(result))
-    print(proc.time() - ptm)
+    record <- c(0L, 0L)
 
+    result <- dbRun(conn, "(1, table(2018.07.22 2018.08.21 as date, `Hello`World as str), 5.5, 1 2 3, 2012.06M)")
+    value_int <- 1L
+    value_table <- data.frame(
+        date = as.Date(c("2018-07-22", "2018-08-21")),
+        str = as.character(c("Hello", "World"))
+    )
+    value_dbl <- 5.5
+    value_vec <- c(1L, 2L, 3L)
+    value_month <- as.Date("2012-06-01")
+    record <- assert(record, "test anyvector", result, list(value_int, value_table, value_dbl, value_vec, value_month))
+    
+    printer(record)
 }
 dbClose(conn)

test/TestDataFrame.R

@@ -2,29 +2,35 @@
 #
 # @Author -- Jingtang Zhang
 # @Date   -- 2018.7.31, Hangzhou
-# @Update -- 2018.8.15, Hangzhou
+# @Update -- 2018.8.19, Ningbo
 #
 #
 
+source("Assert.R")
+
 library("RDolphinDB")
-conn <- dbConnect(DolphinDB(), "192.168.137.132", 8888)
+conn <- dbConnect(DolphinDB(), ip_addr, port)
 if (conn@connected == TRUE) {
 
-    ptm <- proc.time()
+    record <- c(0L, 0L)
+
     table <- data.frame(id=c(1,2,3), value=c(2.5, 3.5, 5.5))
     clm <- 1L
     row <- 1L
     testList <- list(table, clm, row)
     result <- dbRpc(conn, "cell", testList)
-    print(result)
-    print(class(result))
-    print(proc.time() - ptm)
+    record <- assert(record, "test dataframe rpc", result, 3.5)
 
-    ptm <- proc.time()
     result <- dbRun(conn, "table(2018.06.12 2018.07.22 2018.08.21 as date, 1 2 NULL as int, `x`dd`zz as str, 10.8 7.6 3.5 as dbl)")
-    print(result)
-    print(class(result))
-    print(proc.time() - ptm)
+    table <- data.frame(
+        date=as.Date(c("2018-06-12","2018-07-22","2018-08-21")),
+        int=c(1L, 2L, NA),
+        str=c("x", "dd", "zz"),
+        dbl=c(10.8, 7.6, 3.5)
+    )
+    record <- assert(record, "test dataframe run", result, table)
+    
+    printer(record)
 
 }
 dbClose(conn)