tests/testthat/test-types.castNumber.R

In frictionlessdata/tableschema-r: Table Schema 'Frictionless Data'

library(stringr)
library(tableschema.r)
library(testthat)
library(foreach)
library(config)

context("types.castNumber")

# Constants

TESTS <- list(
  list('default', 1, 1, {}), 
  list('default', 1, 1, {}),
  list('default', 1.0, 1, {}),
  list('default', '1', 1, {}),
  list('default', '10.00', 10, {}),
  list('default', '10.50', 10.5, {}),
  list('default', '100%', 100, list(bareNumber = FALSE) ),
  list('default', '1000‰', 1000, list(bareNumber = FALSE) ),
  list('default', '-1000', -1000, {}),
  list('default', '1,000', 1000, list(groupChar = ',') ),
  list('default', '10,000.00', 10000, list(groupChar = ',') ),
  list('default', '10,000,000.50', 10000000.5, list(groupChar = ',') ),
  list('default', '10#000.00', 10000, list(groupChar = '#') ),
  list('default', '10#000#000.50', 10000000.5, list(groupChar = '#') ),
  list('default', '10.50', 10.5, list(groupChar = '#') ),
  list('default', '1#000', 1000, list(groupChar = '#') ),
  list('default', '10#000@00', 10000, list(groupChar = '#', decimalChar = '@') ),
  list('default', '10#000#000@50', 10000000.5, list(groupChar = '#', decimalChar = '@') ),
  list('default', '10@50', 10.5, list(groupChar = '#', decimalChar = '@') ),
  list('default', '1#000', 1000, list(groupChar = '#', decimalChar = '@') ),
  
  list('default', '10,000.00', 10000, list( groupChar = ',', bareNumber = FALSE) ),
  list('default', '10,000,000.00', 10000000, list(groupChar = ',', bareNumber = FALSE) ),
  list('default', '$10000.00', 10000, list(bareNumber = FALSE) ),
  list('default', '  10,000.00 €', 10000, list(groupChar = ',', bareNumber = FALSE) ),
  list('default', '10 000,00', 10000, list(groupChar = ' ', decimalChar = ',') ),
  list('default', '10 000 000,00', 10000000, list(groupChar = ' ', decimalChar = ',') ),
  list('default', '10000,00 ₪', 10000, list('groupChar' = ' ', 'decimalChar' = ',', 'bareNumber' = FALSE)),
  list('default', '  10 000,00 £', 10000, list( groupChar = ' ', decimalChar = ',', bareNumber = FALSE) ),
  list('default', '10,000a.00', config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")), {} ),
  list('default', '10+000.00', config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")), {} ),
  list('default', '$10:000.00', config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")), {} ),
  list('default', 'string', config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")), {} ),
  list('default', '', config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")), {} ),
  list('default', NULL, config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")), {}),
  list('default', list(1:3), config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")), {}),
  list('default', "", config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")), {}),
  list('default', '1000000', 1000000, list( bareNumber = TRUE)),
  list('default', "100a", config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")), {})
  
)

# Tests

foreach(j = seq_along(TESTS) ) %do% {
  
  TESTS[[j]] <- setNames(TESTS[[j]], c("format", "value", "result","options"))
  
  test_that(str_interp('format "${TESTS[[j]]$format}" should check "${TESTS[[j]]$value}" as "${TESTS[[j]]$result}"'), {
    
    expect_equal(types.castNumber(TESTS[[j]]$format, TESTS[[j]]$value, TESTS[[j]]$options), TESTS[[j]]$result)
  })
}