tests/testthat/helper.R

In rtiddlywiki: R Interface for 'TiddlyWiki'

#' Test whether server can be connected
#'
#' @return TRUE if test server is available.
is_test_tw <- function() {
    tw_options(host = "http://127.0.0.1:9090")
    x <- try({
        status <- get_status()
        if (!is.null(status)) {
            return(TRUE)
        }
    })
    if (inherits(x, "try-error")) {
        return(FALSE)
    }
    return(FALSE)
}


test_folder <- function() "dsdkdhfsdahfsahfskafhsodisafsacsdfsajf"