tests/tests.R

In klutometis/R-translate: Bindings for the Google Translate API v2

library(translate)

if (is.null(get.key())) {
  message("No API key is set; not running tests.")
} else {
  stopifnot(detect.source('hello') == 'en')
  stopifnot(length(languages(target='de')) == 53)
  stopifnot(translate('hello, world', 'en', 'de') == 'Hallo Welt!')
}