tests/testthat/test-gltc-lang.R

In lingtypology: Linguistic Typology and Mapping

library(lingtypology)
context("Tests for gltc.lang function")

df <- data.frame(my_langs = c("Adyghe", "Udi"), stringsAsFactors = FALSE)

test_that("gltc.lang", {
  skip_on_cran()
    expect_equal(gltc.lang("Adyghe"), c(Adyghe = "adyg1241"))
    expect_equal(gltc.lang(c("Adyghe", "Udi")), c(Adyghe = "adyg1241", Udi = "udii1243"))
    expect_equal(gltc.lang(df), c(my_langs1 = "adyg1241", my_langs2 = "udii1243"))
})