context("array")

library(DBI, warn.conflicts=F)
library(dplyr, warn.conflicts=F)  # for data_frame

source("utils.R")

test_that("reading & writing array columns", {
  writeReadTest(as.data.frame(tibble(x=list(c(1,3,5),c(1,2)))))
})

test_that("nullable array columns", {
  writeReadTest(as.data.frame(tibble(x=list(c(1,NA,3,5),c(1,2,NA)))))
})

test_that("array columns with empty entries", {
  writeReadTest(as.data.frame(tibble(x=list(c(1,2,3),as.numeric(c()),c(4,5)))))
})


# adding Data to CH containing columns with spaces
test_that("columns with spaces", {
  writeReadTest(as.data.frame(data.frame(
    "capitals"=c("Vienna","Washington D.C.", "Paris", "London"),
    "best sights"=c("Viennese Opera","Lincoln Memorial", "Eiffel Tower", "London Bridge"),
    "Col with space"=1:4,
    stringsAsFactors=FALSE,
    check.names=FALSE
  )))
})
test_that("columns with spaces quoted with backticks", {
  writeReadTest(as.data.frame(data.frame(
    "`capitals`"=c("Vienna","Washington D.C.", "Paris", "London"),
    "`best sights`"=c("Viennese Opera","Lincoln Memorial", "Eiffel Tower", "London Bridge"),
    "`Col with space`"=1:4,
    stringsAsFactors=FALSE,
    check.names=FALSE
  )))
})
test_that("columns with spaces quoted with DoubleQuotes", {
  writeReadTest(as.data.frame(data.frame(
    '"capitals"'=c("Vienna","Washington D.C.", "Paris", "London"),
    '"best sights"'=c("Viennese Opera","Lincoln Memorial", "Eiffel Tower", "London Bridge"),
    '"Col with space"'=1:4,
    stringsAsFactors=FALSE,
    check.names=FALSE
  )))
})