tests/testthat/test_getFeatureSet.R

In jakobbossek/salesperson: Computation of Instance Features and R Interface to the State-of-the-Art Exact and Inexact Solvers for the Traveling Salesperson Problem

context("test feature-set: ALL")

test_that("getFeatureSet does produce reasonable results", {
    # build a simple well clustered network
    x = generateClusteredNetwork(n.points = 100L, n.cluster = 2L, upper = 100)

    feature.set = getFeatureSet(x, black.list = c("VRP"))
    expect_feature_list(feature.set, feature.set = "ALL")

    feature.set = getFeatureSet(x, black.list = c("VRP"), include.costs = TRUE)
    expect_feature_list(feature.set, feature.set = "ALL")

    feature.set = getFeatureSet(x, black.list = c("VRP", "MST", "Distance"))
    expect_feature_list(feature.set, feature.set = "ALL")

    args = list("Cluster" = list("epsilon" = seq(0.01, 0.1, by = 0.1)))
    feature.set = getFeatureSet(x, black.list = c("VRP"), feature.fun.args = args)
})