Add another test case.

Author: viirya

R/pkg/inst/tests/test_sparkSQL.R

@@ -116,6 +116,16 @@ test_that("create DataFrame from RDD", {
   expect_equal(count(df), 3)
   expect_equal(columns(df), c("name", "age", "height"))
   expect_equal(dtypes(df), list(c("name", "string"), c("age", "double"), c("height", "double")))
+
+  hiveCtx <- tryCatch({
+    newJObject("org.apache.spark.sql.hive.test.TestHiveContext", ssc)
+  }, error = function(err) {
+    skip("Hive is not build with SparkSQL, skipped")
+  })
+  sql(hiveCtx, "CREATE TABLE people (name string, age double, height float) row format delimited fields terminated by ','")
+  insertInto(df, "people")
+  expect_equal(sql(hiveCtx, "SELECT age from people"), c(19, 23, 18))
+  expect_equal(sql(hiveCtx, "SELECT height from people"), c(164.10, 181.4, 173.7))
 })
 
 test_that("convert NAs to null type in DataFrames", {