tests/testthat/test-sprachdatei.R

context("test-sprachdatei")



test_that("Names2Language", {
  expect_true(is.list(Sprachdatei()))
  expect_equal(Sprachdatei("de")$source,
               "Quelle")
  expect_equal(Sprachdatei("en")$source, "Source")
  
  
  expect_equal(Names2Language(c("Pr..Chisq.", "F.value")),
               c(Pr..Chisq. = "p" ,  F.value = "F"))
})
stp4/stp25output documentation built on Sept. 19, 2021, 11:56 a.m.