tests/testthat/test-rename.R

In phsmethods: Standard Methods for Use in Public Health Scotland

test_that("postcode is deprecated", {
  expect_snapshot(
    {
      expect_equal(stringr::str_length(postcode("G26QE", format = "pc7")), 7)
      expect_equal(stringr::str_length(postcode("G26QE", format = "pc8")), 6)
      expect_equal(stringr::str_length(postcode(c("KA89NB", "PA152TY"),
        format = "pc7"
      )), c(7, 7))
      expect_equal(stringr::str_length(postcode(c("KA89NB", "PA152TY"),
        format = "pc8"
      )), c(7, 8))

      expect_equal(postcode("G36RB"), "G3  6RB")
      expect_equal(postcode("G432XR"), "G43 2XR")
      expect_equal(postcode("DG29BA"), "DG2 9BA")
      expect_equal(postcode("FK101RY"), "FK101RY")
      expect_equal(postcode("E1W3TJ"), "E1W 3TJ")
      expect_equal(postcode("EC1Y8SE"), "EC1Y8SE")

      input_hampden <- c("G429BA", "g429ba", "G42 9BA", "G 4 2 9 B A", "G429b    a")

      expect_true(length(unique(postcode(input_hampden))) == 1)
      expect_equal(unique(postcode(input_hampden)), "G42 9BA")

      expect_true(is.na(suppressWarnings(postcode("G2?QE"))))
      expect_warning(postcode(c("G207AL", "G2O07AL")))
      expect_equal(
        suppressWarnings(postcode(c(
          "EH7 5QG", NA,
          "EH11 2NL", "EH5 2HF*"
        ))),
        c("EH7 5QG", NA, "EH112NL", NA)
      )

      input_dens <- c("Dd37Jy", "DD37JY", "D  d 337JY")
      expect_length(capture_warnings(postcode(input_dens)), 2)

      input_pittodrie <- c("ab245qh", NA, "ab245q", "A  B245QH")
      expect_length(capture_warnings(postcode(input_pittodrie)), 3)

      expect_warning(postcode("g2"), "^1")
      expect_warning(postcode(c("DG98BS", "dg98b")), "^1")
      expect_warning(postcode(c("KY1 1RZ", "ky1rz", "KY11 R", "KY11R!")), "^3")
      expect_warning(
        postcode(c(
          "ML53RB", NA, "ML5",
          "???", 53, as.factor("ML53RB")
        )),
        "^4"
      )
    },
    error = TRUE
  )
})

test_that("age_group is deprecated", {
  expect_snapshot(
    {
      expect_identical(
        age_group(c(4, 51, 21, 89),
          0, 80, 10,
          as_factor = FALSE
        ),
        c("0-9", "50-59", "20-29", "80+")
      )

      expect_identical(
        age_group(c(8, 94, 44, 55, 14),
          0, 90, 5,
          as_factor = TRUE
        ),
        factor(c("5-9", "90+", "40-44", "55-59", "10-14"),
          levels = c(
            "0-4", "5-9", "10-14", "15-19", "20-24", "25-29", "30-34",
            "35-39", "40-44", "45-49", "50-54", "55-59", "60-64",
            "65-69", "70-74", "75-79", "80-84", "85-89", "90+"
          ),
          ordered = TRUE
        )
      )

      expect_identical(
        age_group(c(81, 86, 33, 11),
          4, 84, 3,
          as_factor = FALSE
        ),
        c("79-81", "82+", "31-33", "10-12")
      )

      expect_identical(
        age_group(c(0, 99, 1000, 5, 5),
          5, 90, 5,
          as_factor = FALSE
        ),
        c(NA, "90+", "90+", "5-9", "5-9")
      )

      expect_identical(
        age_group(10, as_factor = TRUE),
        factor(c("10-14"),
          levels = c(
            "0-4", "5-9", "10-14", "15-19", "20-24", "25-29", "30-34",
            "35-39", "40-44", "45-49", "50-54", "55-59", "60-64",
            "65-69", "70-74", "75-79", "80-84", "85-89", "90+"
          ),
          ordered = TRUE
        )
      )




      # If x is not numeric cut will error
      expect_error(age_group(c("1", "57", "apple", "12"), as_factor = FALSE))

      # This is true even if all elements are numbers stored as character
      expect_error(age_group(c("26", "9", "78", "81"), as_factor = FALSE))
    },
    error = TRUE
  )
})

test_that("fin_year is deprecated", {
  expect_snapshot(
    {
      expect_equal(fin_year(as.Date("20120331", "%Y%m%d")), "2011/12")
      expect_equal(fin_year(as.Date("20120401", "%Y%m%d")), "2012/13")
      expect_equal(fin_year(as.POSIXct("20190104", format = "%Y%m%d")), "2018/19")

      expect_equal(fin_year(as.Date("17111993", "%d%m%Y")), "1993/94")
      expect_equal(fin_year(as.Date("19980404", "%Y%m%d")), "1998/99")
      expect_equal(fin_year(as.Date("21-Jan-2017", "%d-%B-%Y")), "2016/17")
      expect_equal(fin_year(as.POSIXct("20181401", format = "%Y%d%m")), "2017/18")
      expect_equal(fin_year(lubridate::dmy(29102019)), "2019/20")

      expect_error(fin_year("28102019"))
      expect_error(fin_year("28-Oct-2019"))
      expect_error(fin_year(as.numeric("28102019")))
      expect_error(fin_year(as.factor("28-Oct-2019")))

      expect_equal(fin_year(c(lubridate::dmy(05012020), NA)), c("2019/20", NA))
    },
    error = TRUE
  )
})