tests/testthat/test-describe.R

In poissonconsulting/dbWriteSQLite: Enhanced Reading and Writing for 'SQLite' Databases

test_that("describe with scalars works", {
  conn <- local_conn()
  
  local <- data.frame(z = c(TRUE, FALSE, NA))
  DBI::dbCreateTable(conn, "local", local)
  expect_identical(rws_write(local, conn = conn), "local")
  meta <- rws_describe_meta("local", "Z", "A logical vector.", conn = conn)
  expect_identical(meta, tibble::tibble(
    TableMeta = "LOCAL",
    ColumnMeta = "Z",
    MetaMeta = "class: logical",
    DescriptionMeta = "A logical vector."
  ))
  expect_identical(rws_read_meta(conn), meta)
})

test_that("describe with vector works", {
  conn <- local_conn()
  
  local <- data.frame(z = c(TRUE, FALSE, NA), y = 1:3)
  DBI::dbCreateTable(conn, "local", local)
  expect_identical(rws_write(local, conn = conn), "local")
  meta <- rws_describe_meta("local", c("y", "Z"), c("stuff", "A logical vector."), conn = conn)
  expect_identical(meta, tibble::tibble(
    TableMeta = c("LOCAL", "LOCAL"),
    ColumnMeta = c("Y", "Z"),
    MetaMeta = c(NA, "class: logical"),
    DescriptionMeta = c("stuff", "A logical vector.")
  ))
  expect_identical(rws_read_meta(conn), meta)
})

test_that("describe errors if extra", {
  conn <- local_conn()
  
  local <- data.frame(z = c(TRUE, FALSE, NA), y = 1:3)
  DBI::dbCreateTable(conn, "local", local)
  expect_identical(rws_write(local, conn = conn), "local")
  expect_error(rws_describe_meta("local", c("y", "Z2"), c("stuff", "A logical vector."), conn = conn), "^All description tables and columns must exist in the meta table[.]$")
})

test_that("describe replace works", {
  conn <- local_conn()
  
  local <- data.frame(z = c(TRUE, FALSE, NA))
  DBI::dbCreateTable(conn, "local", local)
  expect_identical(rws_write(local, conn = conn), "local")
  meta <- rws_describe_meta("local", "Z", "A logical vector.", conn = conn)
  expect_identical(meta, tibble::tibble(
    TableMeta = "LOCAL",
    ColumnMeta = "Z",
    MetaMeta = "class: logical",
    DescriptionMeta = "A logical vector."
  ))
  meta <- rws_describe_meta("local", "Z", " More info.", conn = conn)
  expect_identical(meta, tibble::tibble(
    TableMeta = "LOCAL",
    ColumnMeta = "Z",
    MetaMeta = "class: logical",
    DescriptionMeta = " More info."
  ))

  meta <- rws_describe_meta("local", "Z", NA_character_, conn = conn)
  expect_identical(meta, tibble::tibble(
    TableMeta = "LOCAL",
    ColumnMeta = "Z",
    MetaMeta = "class: logical",
    DescriptionMeta = NA_character_
  ))
})

test_that("describe two works", {
  conn <- local_conn()
  
  local <- data.frame(z = c(TRUE, FALSE, NA), a = 1:3)
  DBI::dbCreateTable(conn, "local", local)
  expect_identical(rws_write(local, conn = conn), "local")
  meta <- rws_describe_meta("local", "Z", "A logical vector.", conn = conn)
  expect_identical(meta, tibble::tibble(
    TableMeta = c("LOCAL", "LOCAL"),
    ColumnMeta = c("A", "Z"),
    MetaMeta = c(NA, "class: logical"),
    DescriptionMeta = c(NA, "A logical vector.")
  ))
  meta <- rws_describe_meta("local", "A", " More info.", conn = conn)
  expect_identical(meta, tibble::tibble(
    TableMeta = c("LOCAL", "LOCAL"),
    ColumnMeta = c("A", "Z"),
    MetaMeta = c(NA, "class: logical"),
    DescriptionMeta = c(" More info.", "A logical vector.")
  ))

  meta <- rws_describe_meta("local", "Z", "More info2.", conn = conn)
  expect_identical(meta, tibble::tibble(
    TableMeta = c("LOCAL", "LOCAL"),
    ColumnMeta = c("A", "Z"),
    MetaMeta = c(NA, "class: logical"),
    DescriptionMeta = c(" More info.", "More info2.")
  ))
})