tests/testthat/test-options.R

In rtiddlywiki: R Interface for 'TiddlyWiki'

test_that("test options", {
    options <- tw_options(host = "http://127.0.0.1")
    expect_equal(as.character(options$host), "http://127.0.0.1")

    tw_reset()
    options <- tw_options()

    expect_equal(as.character(options$host), "http://127.0.0.1:8080/")

})