From 6945f68ec5a6c12b1d7d4ad79e283626767def37 Mon Sep 17 00:00:00 2001
From: Jeremy Stanley <jstanley@sailthru.com>
Date: Fri, 3 Apr 2015 06:59:19 -0400
Subject: [PATCH] #27 first draft tests for as.tbl_json.data.frame

---
 tests/testthat/test-tbl_json.r | 55 ++++++++++++++++++++++++++++++++--
 1 file changed, 53 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/test-tbl_json.r b/tests/testthat/test-tbl_json.r
index 67911e0..5d2bb6e 100644
--- a/tests/testthat/test-tbl_json.r
+++ b/tests/testthat/test-tbl_json.r
@@ -68,6 +68,59 @@ test_that("throws error on invalid json", {
   }
 )
 
+context("tbl_json: as.tbl_json.data.frame")
+
+test_that("works for a data.frame and data_frame created objects", {
+    
+    df <- data.frame(
+      document.id = 1:2,
+      json = c('{"name": "bob"}', '{"name": "susan"}'),
+      stringsAsFactors = FALSE)
+    # data.frame
+    expect_identical(
+      as.tbl_json(df, json.column = "json"),
+      as.tbl_json(df$json)
+    )
+    # data_frame
+    df <- data_frame(
+      document.id = 1:2,
+      json = c('{"name": "bob"}', '{"name": "susan"}'))
+    expect_identical(
+      as.tbl_json(df, json.column = "json"),
+      as.tbl_json(df$json)
+    )
+    
+  }
+)
+
+test_that("works in a pipeline", {
+    
+    df <- data_frame(
+      age = c(32, 45),
+      json = c('{"name": "bob"}', '{"name": "susan"}')
+    )
+    
+    expect_identical(
+      df %>% as.tbl_json(json.column = "json") %>% 
+        spread_values(name = jstring("name")) %>%
+        filter(age == 32) %>%
+        extract2("name"),
+      "bob"
+    )
+    
+  }
+)
+
+test_that("throws an error without json.column specified", {
+    expect_error(as.tbl_json(iris))
+  }
+)
+
+test_that("throws an error if json column doesn't exist", {
+    expect_error(as.tbl_json(iris, json.column = "json"))
+  }
+)
+
 context("tbl_json")
 
 test_that("tbl_json constructor works with no data", {
@@ -164,7 +217,6 @@ test_that("dplyr::arrange works with a simple example", {
   }
 )
 
-
 test_that("dplyr::mutate works with a simple example", {
     
     x <- as.tbl_json(c('{"name": "bob"}', '{"name": "susan"}'))
@@ -185,7 +237,6 @@ test_that("dplyr::mutate works with a simple example", {
   }
 )
 
-
 test_that("dplyr::mutate works in a more complex pipeline", {
     
     json <- c(