Closing issue #12

test included

R/tests/testthat/test-readr.R

@@ -0,0 +1,22 @@
+if (requireNamespace("readr", quietly = TRUE)) {
+
+  context("Compatibility with readr")
+
+  metadata <- readr::read_csv(
+    get_data_location(
+      "ExampleProject_DataDictionary_2018-06-07.csv"
+    )
+  )
+
+  records <- readr::read_csv(
+    get_data_location(
+      "ExampleProject_DATA_2018-06-07_1129.csv"
+    )
+  )
+
+  test_that("Data read in with `readr` will return correct result", {
+    redcap_output_readr <- REDCap_split(records, metadata)
+    expect_known_hash(redcap_output_readr, "bde303d330fba161ca500c10cfabb693")
+  })
+
+}