add tests

Author: wangmiao1981

R/pkg/inst/tests/testthat/test_Serde.R

@@ -28,6 +28,10 @@ test_that("SerDe of primitive types", {
   expect_equal(x, 1)
   expect_equal(class(x), "numeric")
 
+  x <- callJStatic("SparkRHandler", "echo", 1380742793415240)
+  expect_equal(x, 1380742793415240)
+  expect_equal(class(x), "numeric")
+
   x <- callJStatic("SparkRHandler", "echo", TRUE)
   expect_true(x)
   expect_equal(class(x), "logical")
@@ -43,6 +47,11 @@ test_that("SerDe of list of primitive types", {
   expect_equal(x, y)
   expect_equal(class(y[[1]]), "integer")
 
+  x <- list(1380742793415240, 13807427934152401, 13807427934152402)
+  y <- callJStatic("SparkRHandler", "echo", x)
+  expect_equal(x, y)
+  expect_equal(class(y[[1]]), "numeric")
+
   x <- list(1, 2, 3)
   y <- callJStatic("SparkRHandler", "echo", x)
   expect_equal(x, y)
@@ -66,7 +75,8 @@ test_that("SerDe of list of primitive types", {
 
 test_that("SerDe of list of lists", {
   x <- list(list(1L, 2L, 3L), list(1, 2, 3),
-            list(TRUE, FALSE), list("a", "b", "c"))
+            list(TRUE, FALSE), list("a", "b", "c"),
+            list(1380742793415240, 1380742793415240))
   y <- callJStatic("SparkRHandler", "echo", x)
   expect_equal(x, y)
 

R/pkg/inst/tests/testthat/test_sparkSQL.R

@@ -3202,8 +3202,7 @@ test_that("dapply with bigint type", {
          },
          schema)
   result <- collect(df1)
-  resultString <- sprintf("%.10f", result$a[1])
-  expect_equal(resultString, "1380742793415240.0000000000")
+  expect_equal(result$a[1], 1380742793415240)
 })
 
 test_that("catalog APIs, listTables, listColumns, listFunctions", {