tests/testthat/test-record-convert.R

In patperry/r-frame: Flexible Data Frames

context("record")

test_that("from list", {
    x <- list(2, "foo", NA)
    expect_equal(as.record(x), structure(x, class = "record"))
})


test_that("from named list", {
    x <- list(a = 2, b = "foo", c = NA)
    expect_equal(as.record(x), structure(x, class = "record"))
})


test_that("from record", {
    x <- as.record(list(a = 2, b = "foo", c = NA))
    expect_equal(as.record(x), x)
})


test_that("from empty", {
    x <- list()
    expect_equal(as.record(x), structure(x, class = "record"))
})


test_that("from named empty", {
    x <- structure(list(), names = character())
    y <- as.record(x)
    names(y) <- character()
    expect_equal(as.record(x), y)
})


test_that("from NULL", {
    expect_equal(as.record(NULL), unname(record()))
})


test_that("with NSE", {
    a <- 2
    b <- "foo"
    c <- NA
    x <- record(a, b, c)
    y <- as.record(list(a = a, b = b, c = c))
    expect_equal(x, y)
})


test_that("with NSE mixed", {
    a <- 2
    c <- NA
    x <- record(a, b = "foo", c)
    y <- as.record(list(a = a, b = "foo", c = c))
    expect_equal(x, y)
})


test_that("setting names with wrong length", {
    x <- record(a = 1, b = 18, c = "foo")
    expect_error(names(x) <- c("a", "b", "c", "d"),
                 "mismatch: `value` length is 4, object length is 3")
    expect_error(names(x) <- "a",
                 "mismatch: `value` length is 1, object length is 3")
})


#test_that("setting names with wrong encoding", {
#    names <- c("hello", "fa\xE7ile", "world")
#    Encoding(names) <- "UTF-8"
#
#    x <- record(a = 1, b = 18, c = "foo")
#    expect_error(names(x) <- names) #, "^encoding error: `value` entry 2")
#})


test_that("as.list downcasts", {
    x <- record(a = 1, b = 10)
    expect_equal(as.list(x), list(a = 1, b = 10))
})


test_that("as.list converts a non-list", {
    x <- as.record(c(a = 1, b = 10))
    expect_equal(as.record(as.list(x)), record(a = 1, b = 10))
})


test_that("as.vector downcasts", {
    x <- record(a = 1, b = 10)
    expect_equal(as.vector(x, "any"), x)
    expect_equal(as.vector(x, "list"), x)
    expect_equal(as.vector(x, "numeric"), c(1, 10))
})


test_that("changing storage mode", {
    x <- record(a = 1, b = 9, c = 2)
    expect_equal(as.vector(x), x)
    expect_equal(as.vector(x, "list"), x)
    expect_equal(as.vector(x, "character"), c("1", "9", "2"))
})