add kitchen test

DESCRIPTION

@@ -14,9 +14,11 @@ URL: http://graphql.org
     https://github.com/ropensci/graphql
 BugReports: https://github.com/ropensci/graphql/issues
 LinkingTo: Rcpp
-Imports: 
-    Rcpp (>= 0.12.0), 
+Imports:
+    Rcpp (>= 0.12.0),
     jsonlite
-LazyData: true
-SystemRequirements: C++11
-RoxygenNote: 5.0.1.9000
+LazyData: NA
+SystemRequirements: NA
+RoxygenNote: 5.0.1
+Suggests:
+    testthat

tests/testthat.R

@@ -0,0 +1,4 @@
+library(testthat)
+library(graphql)
+
+test_check("graphql")

tests/testthat/test-kitchen_sink.R

@@ -0,0 +1,72 @@
+context("kitchen_sink")
+
+test_that("kitchen sink parses", {
+
+  kitchen_txt <-
+    "
+    # Copyright (c) 2015, Facebook, Inc.
+    # All rights reserved.
+    #
+    # This source code is licensed under the BSD-style license found in the
+    # LICENSE file in the root directory of this source tree. An additional grant
+    # of patent rights can be found in the PATENTS file in the same directory.
+
+    query queryName($foo: ComplexType, $site: Site = MOBILE) {
+      whoever123is: node(id: [123, 456]) {
+        id ,
+        ... on User @defer {
+          field2 {
+            id ,
+            alias: field1(first:10, after:$foo,) @include(if: $foo) {
+              id,
+              ...frag
+            }
+          }
+        }
+        ... @skip(unless: $foo) {
+          id
+        }
+        ... {
+          id
+        }
+      }
+    }
+
+    mutation likeStory {
+      like(story: 123) @defer {
+        story {
+          id
+        }
+      }
+    }
+
+    subscription StoryLikeSubscription($input: StoryLikeSubscribeInput) {
+      storyLikeSubscribe(input: $input) {
+        story {
+          likers {
+            count
+          }
+          likeSentence {
+            text
+          }
+        }
+      }
+    }
+
+    fragment frag on Friend {
+      foo(size: $size, bar: $b, obj: {key: \"value\"})
+    }
+
+    {
+      unnamed(truthy: true, falsey: false, nullish: null),
+      query
+    }
+    "
+
+    json_txt <- graphql2json(kitchen_txt)
+
+    result <- jsonlite::fromJSON(json_txt)
+
+    expect_true(is.list(result))
+
+})