inst/doc_env/test_suite/testthat/test-cluster-wealth.R

In regisoc/kibior: A Simple Data Management and Sharing Tool

context("Cluster wealth")

testthat::setup({
    # remove indices if they exist
    remove_all_indices()
})

testthat::teardown({
    # remove indices if they exist
    remove_all_indices()
})


# start infos ----

test_that("kibior::infos, nominal use, no arg", {
    s <- kc$infos()
    expect_equal(s$status, kc$cluster_status)
    expect_equal(s$cluster_name, kc$cluster_name)
  
})

test_that("kibior::infos, version check", {
    remove_all_indices()
    expect_true(paste0(kc$version, collapse = ".") %in% kc$infos()$nodes$versions)
})

test_that("kibior::infos, nominal use, constant", {
    remove_all_indices()
    expect_equal(kc$infos()$indices$count, 0)
    res <- kc$create(single_index_name)
    res %>% unlist(use.names = FALSE) %>% expect_true()
    expect_equal(kc$infos()$indices$count, length(single_index_name))
    remove_all_indices()
    expect_equal(kc$infos()$indices$count, 0)
    res <- kc$create(multiple_indice_names)
    res %>% unlist(use.names = FALSE) %>% all() %>% expect_true()
    expect_equal(kc$infos()$indices$count, length(multiple_indice_names))
})

test_that("kibior::infos, list vs", {
    remove_all_indices()
    expect_null(kc$list())
    expect_true(kc$infos()$indices$count == 0)

    res <- kc$create(single_index_name)
    res %>% unlist(use.names = FALSE) %>% expect_true()
    expect_equal(length(kc$list()), kc$infos()$indices$count)

})

# end infos



# start ping ----

test_that("kibior::ping, nominal use", {
    p <- kc$ping()
    expect_equal(p$version$number, paste0(kc$version, collapse = "."))
    expect_equal(p$cluster_name, kc$cluster_name)
    expect_equal(p$tagline, "You Know, for Search")
})



# end ping