test-sum_isna.R
In hutilscpp: Miscellaneous Functions in C++

# test_that("Early returns", {
expect_error(sum_isna(list(1:4, 1)))
expect_equal(sum_isna(NULL), 0)
expect_equal(sum_isna(integer()), 0)
expect_equal(sum_isna(1:4, TRUE), 0)


# test_that("sum_isna works", {
x <- logical(0)
expect_equal(sum(is.na(x)), sum_isna(x))

x <- c(x, TRUE)
expect_equal(sum(is.na(x)), sum_isna(x))

x <- c(x, FALSE)
expect_equal(sum(is.na(x)), sum_isna(x))

x <- c(x, NA)
expect_equal(sum(is.na(x)), sum_isna(x))

x <- as.integer(x)
expect_equal(sum(is.na(x)), sum_isna(x))

x <- as.double(x)
expect_equal(sum(is.na(x)), sum_isna(x))

x <- as.complex(x)
expect_equal(sum(is.na(x)), sum_isna(x))

x <- as.character(x)
expect_equal(sum(is.na(x)), sum_isna(x))

x <- raw(length(x))
expect_equal(sum(is.na(x)), sum_isna(x))


# test_that("sum_isna long", {
if (at_home() && identical(.Platform$r_arch, "x64")) {

  tryCatch(x <- logical(3e9), error = function(e) {
    if (grepl("allocate", e$m)) {
      NULL
    } else {
      cat(e$m)
    }
  })
  if (length(x) != 3e9) {

    expect_identical(sum_isna(x), 0L)

    x <- NULL
    x <- rep_len(c(TRUE, NA), 3e9)
    expect_equal(sum_isna(x), 3e9 / 2)
  }
}




# test_that("sum_isna_real", {
x <- c(1:5, 0.5)
expect_equal(sum_isna(x), sum(is.na(x)))
x <- c(NA, 1:5, 0.5)
expect_equal(sum_isna(x), sum(is.na(x)))
x <- c(NA, 1:5, 0.5, NA)
expect_equal(sum_isna(x), sum(is.na(x)))
x <- c(NA, 1:5, 0.5, NaN)
expect_equal(sum_isna(x), sum(is.na(x)))
x <- c(NaN, 1:5, 0.5, NaN)
expect_equal(sum_isna(x), sum(is.na(x)))
x <- c(1:5, 0.5, NaN)
expect_equal(sum_isna(x), sum(is.na(x)))

x <- c(1:5, 0.5)
expect_equal(sum_isna(x, do_anyNA = FALSE), sum(is.na(x)))
x <- c(NA, 1:5, 0.5)
expect_equal(sum_isna(x, do_anyNA = FALSE), sum(is.na(x)))
x <- c(NA, 1:5, 0.5, NA)
expect_equal(sum_isna(x, do_anyNA = FALSE), sum(is.na(x)))
x <- c(NA, 1:5, 0.5, NaN)
expect_equal(sum_isna(x, do_anyNA = FALSE), sum(is.na(x)))
x <- c(NaN, 1:5, 0.5, NaN)
expect_equal(sum_isna(x, do_anyNA = FALSE), sum(is.na(x)))
x <- c(1:5, 0.5, NaN)
expect_equal(sum_isna(x, do_anyNA = FALSE), sum(is.na(x)))


# test_that("sum_isna nThread == 1", {
expect_equal(sum_isna(1:10, do_anyNA = TRUE, nThread = 1L), 0L)


# test_that("sum_isna_altrep", {
expect_equal(sum_isna(1:5), 0L)
expect_equal(sum_isna(1:5, do_anyNA = FALSE), 0L)


# test_that("sum_isna(raw)", {
expect_equal(sum_isna(raw(5)), 0)
expect_equal(sum_isna(raw(5), do_anyNA = FALSE), 0)