tests/testthat/test-handling-specials.R

In yyjsonr: Fast 'JSON', 'NDJSON' and 'GeoJSON' Parser and Generator

test_that("to_json handling specials works", {

  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  # Special Logical
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  expect_identical(
    write_json_str(c(TRUE, NA)),
    '[true,null]'
  )
  
  expect_identical(
    write_json_str(c(TRUE, NA), opts = opts_write_json(num_specials = 'string')),
    '[true,"NA"]'
  )
  
  expect_identical(
    write_json_str(c(TRUE, NA), opts = opts_write_json(num_specials = 'null')),
    '[true,null]'
  )
  
    
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  # Special INTs
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  expect_identical(
    write_json_str(c(0L, NA_integer_)),
    '[0,null]'
  )
  
  expect_identical(
    write_json_str(c(0L, NA_integer_), opts = opts_write_json(num_specials = 'string')),
    '[0,"NA"]'
  )
  
  expect_identical(
    write_json_str(c(0L, NA_integer_), opts = opts_write_json(num_specials = 'null')),
    '[0,null]'
  )
  
  
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  # Special STRING
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  expect_identical(
    write_json_str(c("a", NA_character_)),
    '["a",null]'
  )
  
  expect_identical(
    write_json_str(c("a", NA_character_), opts = opts_write_json(str_specials = 'string')),
    '["a","NA"]'
  )
  
  expect_identical(
    write_json_str(c("a", NA_character_), opts = opts_write_json(str_specials = 'null')),
    '["a",null]'
  )
  
  
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  # Special Numeric
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  expect_identical(
    write_json_str(c(0, NA_real_, Inf, -Inf, NaN)),
    '[0.0,null,null,null,null]'
  )
  
  expect_identical(
    write_json_str(c(0, NA_real_, Inf, -Inf, NaN), opts = opts_write_json(num_specials = 'string')),
    '[0.0,"NA","Inf","-Inf","NaN"]'
  )
  
  expect_identical(
    write_json_str(c(0, NA_real_, Inf, -Inf, NaN), opts = opts_write_json(num_specials = 'null')),
    '[0.0,null,null,null,null]'
  )
})


test_that("from_json handling specials works", {
  
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  # Logical
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  expect_identical(
    read_json_str('[true,"NA"]'),
    c(TRUE, NA)
  )  
  
  expect_identical(
    read_json_str('[true,"NA"]', opts = opts_read_json(num_specials = "special")),
    c(TRUE, NA)
  )  
  
  expect_identical(
    read_json_str('[true,"NA"]', opts = opts_read_json(num_specials = "string")),
    list(TRUE, "NA")
  )  
  
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  # Integer
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  expect_identical(
    read_json_str('[0, "NA"]'),
    c(0L, NA_integer_)
  )  
  
  expect_identical(
    read_json_str('[0, "NA"]', opts = opts_read_json(num_specials = "special")),
    c(0L, NA_integer_)
  )  
  
  expect_identical(
    read_json_str('[0, "NA"]', opts = opts_read_json(num_specials = "string")),
    list(0L, "NA")
  )  
  
  
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  # Numeric
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  expect_identical(
    read_json_str('[0.0, "NA", "Inf", "-Inf", "NaN"]'),
    c(0, NA_real_, Inf, -Inf, NaN)
  )  
  
  expect_identical(
    read_json_str('[0.0, "NA", "Inf", "-Inf", "NaN"]', opts = opts_read_json(num_specials = "special")),
    c(0, NA_real_, Inf, -Inf, NaN)
  )  
  
  expect_identical(
    read_json_str('[0.0, "NA", "Inf", "-Inf", "NaN"]', opts = opts_read_json(num_specials = "string")),
    list(0, "NA", "Inf", "-Inf", "NaN")
  )  
  
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  # String
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  expect_identical(
    read_json_str('["a", "NA"]'),
    c("a", "NA")
  )
  
  expect_identical(
    read_json_str('["a", "NA"]', opts = opts_read_json(str_specials = "string")),
    c("a", "NA")
  )
  
  expect_identical(
    read_json_str('["a", "NA"]', opts = opts_read_json(str_specials = "special")),
    c("a", NA_character_)
  )
  
  
})