tests/testthat/test-label-ru.R

In countryscales: Country Scales

# Correctness of label_number_locale()/label_percent_locale()/
# label_currency_locale() against Intl.js is already covered exhaustively
# (across all locales, including non-Latin numbering systems) by
# test-label-locale.R. These tests just confirm label_number_ru()/
# label_percent_ru()/label_currency_ru() delegate to that engine with the
# right locale (and, for currency, the right native currency) pinned.
locale <- "ru-RU"

x <- c(123456, -123456)
y <- c(.789, -.789)

test_that("label_number_ru matches label_number_locale", {
  expect_equal(
    label_number_ru(accuracy = 1)(x),
    label_number_locale(accuracy = 1, locale = locale)(x)
  )
})

test_that("label_percent_ru matches label_percent_locale", {
  expect_equal(
    label_percent_ru()(y),
    label_percent_locale(locale = locale)(y)
  )
})

test_that("label_currency_ru uses RUB as the default currency", {
  expect_equal(
    label_currency_ru()(x),
    label_currency_locale(locale = locale, currency = "RUB")(x)
  )
})