tests/testthat/test-is_valid_isin.R

In 2DegreesInvesting/PACTA_analysis: Helpers for 'PACTA_analysis'

test_that("always outputs a logical vector", {
  # invalid and valid codes
  isins <- c(invalid_isin = "XXX", valid_isin = "US0378331005")
  expect_vector(is_valid_isin(isins[1L]), ptype = logical(), size = 1L)
  expect_vector(is_valid_isin(isins[2L]), ptype = logical(), size = 1L)
  expect_vector(is_valid_isin(isins), ptype = logical(), size = 2L)

  # expected possible uses
  isins_df <- data.frame(isin = isins)

  out <- dplyr::mutate(isins_df, valid_isin = is_valid_isin(isin))$valid_isin
  expect_vector(out, ptype = logical(), size = 2L)

  out <- is_valid_isin(isins_df$isin)
  expect_vector(out, ptype = logical(), size = 2L)

  out <- is_valid_isin(isins_df["isin"])
  expect_vector(out, ptype = logical(), size = 2L)

  out <- is_valid_isin(isins_df[1L])
  expect_vector(out, ptype = logical(), size = 2L)

  out <- is_valid_isin(isins_df[["isin"]])
  expect_vector(out, ptype = logical(), size = 2L)

  out <- is_valid_isin(isins_df[[1L]])
  expect_vector(out, ptype = logical(), size = 2L)

  # unexpected input types
  expect_vector(is_valid_isin(1L), ptype = logical(), size = 1L)
  expect_vector(is_valid_isin(1L:2L), ptype = logical(), size = 2L)
  expect_vector(is_valid_isin(TRUE), ptype = logical(), size = 1L)
  expect_vector(is_valid_isin(FALSE), ptype = logical(), size = 1L)
  expect_vector(is_valid_isin(c(TRUE, FALSE)), ptype = logical(), size = 2L)
  expect_vector(is_valid_isin(NA), ptype = logical(), size = 1L)
  expect_vector(is_valid_isin(c(NA, NA)), ptype = logical(), size = 2L)
})

test_that("returns expected values", {
  # typical usage
  codes <- c(invalid_isin = "XXX", valid_isin = "US0378331005", na = NA_character_)
  expect_identical(is_valid_isin(codes), c(FALSE, TRUE, FALSE))

  # false for invalid codes
  codes <- c(no_iso2c = "0378331005", wrong_luhn = "US0378331009")
  expect_identical(is_valid_isin(codes), c(FALSE, FALSE))

  # unexpected input types
  expect_identical(is_valid_isin(NA), FALSE)
  expect_identical(is_valid_isin(NA_character_), FALSE)
  expect_identical(is_valid_isin(c(TRUE, FALSE)), c(FALSE, FALSE))
  expect_identical(is_valid_isin(1L:2L), c(FALSE, FALSE))
})