tests/testthat/test-utils.R

In finbif: Interface for the 'Finnish Biodiversity Information Facility' API

test_that(
  "setting seed works", {

    rm(".Random.seed", pos = 1L)

    sample_with_seed(10, 10, 123)

    expect_false(exists(".Random.seed", 1L))

  }
)

test_that(
  "getting locale works", {

    Sys.setenv(LANGUAGE = "Finnish-Finland")

    expect_match(get_locale(), "fi")

  }
)

test_that(
  "dummy function for conditional package use works", {

    expect_match(value("a"), "a")

  }
)

test_that(
  "variable conversion works", {

    expect_match(from_schema("unit.unitId"), "record_id")

  }
)

test_that(
  "concatenating NA works", {

    expect_equal(concat_string(NA_character_), NA_character_)

  }
)

test_that(
  "default type is character", {

    expect_type(cast_to_type(1, ""), "character")

  }
)

test_that(
  "name_chr_vec with no args returns NULL", {

    expect_equal(name_chr_vec(), NULL)

  }
)