Merge pull request #152 from tigertoes/json

- Enable JSON1 extension for SQLite (#152, @TigerToes).
r-dbi · Sep 7, 2016 · 9df3b0a · 9df3b0a
2 parents ce88dc9 + a224389
commit 9df3b0a
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/src/Makevars b/src/Makevars
@@ -3,6 +3,7 @@ PKG_CPPFLAGS=-DRSQLITE_USE_BUNDLED_SQLITE \
              -DSQLITE_ENABLE_FTS3 \
              -DSQLITE_ENABLE_FTS3_PARENTHESIS \
              -DSQLITE_ENABLE_FTS5 \
+             -DSQLITE_ENABLE_JSON1 \
              -DSQLITE_SOUNDEX
 
 PKG_LIBS = sqlite3/extension-functions.o sqlite3/sqlite3.o

diff --git a/tests/testthat/test-json.R b/tests/testthat/test-json.R
@@ -0,0 +1,10 @@
+context("dbJson")
+
+test_that("JSON types function", {
+  con <- dbConnect(SQLite())
+  gotJson <- dbGetQuery(con, 'SELECT json(\'{"this":"is","a":["test"]}\')')
+  expect_that(gotJson[1,], equals('{"this":"is","a":["test"]}'))
+
+  jsonArray <- dbGetQuery(con, 'SELECT json_array(1,2,3,4)')
+  expect_that(jsonArray[1,], equals('[1,2,3,4]'))
+})