tests/testthat/test-clock-labels.R

In clock: Date-Time Types and Tools

# ------------------------------------------------------------------------------
# clock_labels()

test_that("can make custom labels", {
  months <- month.name
  weekdays <- c("Su", "Mo", "Tu", "We", "Th", "Fr", "Sa")
  am_pm <- c("A", "P")

  labels <- clock_labels(month = month.name, weekday = weekdays, am_pm = am_pm)

  expect_s3_class(labels, "clock_labels")
  expect_snapshot(labels)
})

test_that("input is validated", {
  months <- month.name
  weekdays <- c("Su", "Mo", "Tu", "We", "Th", "Fr", "Sa")
  am_pm <- c("A", "P")

  expect_snapshot(error = TRUE, clock_labels(1))
  expect_snapshot(error = TRUE, clock_labels("x"))
  expect_snapshot(error = TRUE, clock_labels(months, 1))
  expect_snapshot(error = TRUE, clock_labels(months, "x"))
  expect_snapshot(error = TRUE, clock_labels(months, months, 1))
  expect_snapshot(error = TRUE, clock_labels(months, months, "x"))
  expect_snapshot(error = TRUE, clock_labels(months, months, weekdays, 1))
  expect_snapshot(error = TRUE, clock_labels(months, months, weekdays, "x"))
  expect_snapshot(error = TRUE, clock_labels(months, months, weekdays, weekdays, 1))
  expect_snapshot(error = TRUE, clock_labels(months, months, weekdays, weekdays, "x"))
})

test_that("custom labels are converted to UTF-8 upon entry", {
  labels <- clock_labels_lookup("fr")
  month <- iconv(labels$month, from = "UTF-8", to = "latin1")

  labels <- clock_labels(month, month, labels$weekday, labels$weekday, labels$am_pm)

  # French February can be marked as latin1
  before <- month[2]
  after <- labels$month[2]

  expect_identical(Encoding(before), "latin1")
  expect_identical(Encoding(after), "UTF-8")
})

# ------------------------------------------------------------------------------
# clock_labels_lookup()

test_that("can lookup a language", {
  labels <- clock_labels_lookup("fr")

  expect_s3_class(labels, "clock_labels")
  expect_snapshot(labels)
})

test_that("must be a valid language code", {
  expect_snapshot(error = TRUE, clock_labels_lookup(1))
  expect_snapshot(error = TRUE, clock_labels_lookup("foo"))
})

# ------------------------------------------------------------------------------
# clock_labels_languages()

test_that("can list all the languages", {
  langs <- clock_labels_languages()

  expect_length(langs, 196)
  expect_snapshot(langs)
})