tests/testthat/test-dbl.R

In vroom: Read and Write Rectangular Text Data Quickly

test_that("Large exponents can parse", {
  res <- vroom(
    I("1e-63,1e-64\n"),
    delim = ",",
    col_types = "dd",
    col_names = FALSE
  )
  expect_equal(res[[1]], 1e-63)
  expect_equal(res[[2]], 1e-64)
})

test_that("Doubles parse correctly with comma as decimal separator", {
  res <- vroom(
    I("23,4\n"),
    delim = '\t',
    altrep = FALSE,
    locale = locale(decimal_mark = ','),
    col_types = 'd',
    col_names = FALSE
  )
  expect_equal(res[[1]], 23.4)
  res2 <- vroom(
    I("23,4\n"),
    delim = '\t',
    altrep = TRUE,
    locale = locale(decimal_mark = ','),
    col_types = 'd',
    col_names = FALSE
  )
  expect_equal(res2[[1]], 23.4)
})

test_that("NA can be a double value", {
  test_vroom(
    I("x\n1\n2\n"),
    delim = ",",
    col_types = "d",
    na = "1",
    equals = tibble::tibble(x = c(NA_real_, 2))
  )
})

test_that("NaN values are guessed and parsed as doubles (https://github.com/tidyverse/readr/issues/1277)", {
  test_vroom(
    I("x\nNaN\n"),
    delim = ",",
    col_types = "?",
    equals = tibble::tibble(x = c(NaN))
  )
})

test_that("Test that values with only a NaN prefix are _not_ parsed as doubles", {
  test_vroom(
    I("x\nNaNa\n"),
    delim = ",",
    col_types = "?",
    equals = tibble::tibble(x = c("NaNa"))
  )
})

test_that("Inf and -Inf values are guessed and parsed as doubles (https://github.com/tidyverse/readr/issues/1283)", {
  test_vroom(
    I("x\nInf\n-Inf\n+Inf"),
    delim = ",",
    col_types = "?",
    equals = tibble::tibble(x = c(Inf, -Inf, Inf))
  )
})

test_that("Test that values with only a Inf prefix are _not_ parsed as doubles", {
  test_vroom(
    I("x\nInfa\n-Infb\n+Infc"),
    delim = ",",
    col_types = "?",
    equals = tibble::tibble(x = c("Infa", "-Infb", "+Infc"))
  )
})