tests/test-all.R

In eblondel/ldap4R: R interface to LDAP

library(testthat)
library(ldap4R)

LDAP <- LDAPClient$new(
  host = "localhost", 
  port = 389, 
  dc = "planetexpress.com", 
  logger = "INFO"
)

if(is(LDAP, "LDAPClient")){
  cat(sprintf("LDAP server '%s' up and running. Running integration tests...\n", LDAP$url))
  test_check("ldap4R")
}else{
  cat("LDAP server '%s' not running. Skipping integration tests...\n")
}