tests/testthat/test-infer.R

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

library(tableschema.r)
library(testthat)


context("infer")


test_that("produce schema from a generic .csv", {

  source <- 'inst/extdata/data_infer.csv'
  descriptor <- infer(source)
  expect_equivalent(descriptor$fields, list(
    list(name = 'id', type = 'integer', format = 'default'),
    list(name = 'age', type = 'integer', format = 'default'),
    list(name = 'name', type = 'string', format = 'default')
  ))
})

test_that("produce schema from a generic .csv UTF-8 encoded", {
  
  source <- 'inst/extdata/data_infer_utf8.csv'
  descriptor <- infer(source)
  expect_equivalent(descriptor$fields, list(
    list(name = 'id', type = 'integer', format = 'default'),
    list(name = 'age', type = 'integer', format = 'default'),
    list(name = 'name', type = 'string', format = 'default')
  ))
})

test_that("respect row limit parameter", {
  
  source <- 'inst/extdata/data_infer_row_limit.csv'
  descriptor <- infer(source, options = list(limit = 4))
  expect_equivalent(descriptor$fields, list(
    list(name = 'id', type = 'integer', format = 'default'),
    list(name = 'age', type = 'integer', format = 'default'),
    list(name = 'name', type = 'string', format = 'default')
  ))
})

test_that('could infer formats', {
  descriptor <- infer('inst/extdata/data_infer_formats.csv')
  expect_equivalent(descriptor$fields, 
    helpers.from.json.to.list(
    '[{"name": "id", "type": "integer", "format": "default"},
    {"name": "capital", "type": "string", "format": "default"},
    {"name": "url", "type": "string", "format": "default"}]'))
})