tests/testthat/test-utils.R

In federicomarini/bettr: A Better Way To Explore What Is Best

test_that("utils work", {
    expect_equal(.assignInitialWeights(weights = NULL, metrics = c("A", "B"), 
                                       defaultWeightValue = 0.2,
                                       weightResolution = 0.05),
                 c(A = 0.2, B = 0.2))
    expect_equal(.assignInitialWeights(weights = c(A = 0.12345, B = 0.738189),
                                       metrics = c("A1", "B1"),
                                       defaultWeightValue = 1,
                                       weightResolution = 0.05),
                 c(A = 0.10, B = 0.75, A1 = 1, B1 = 1))
    
    p1 <- .makeMetricSummaryPlot(x = rnorm(10))
    p1
    expect_s3_class(p1, "ggplot")
})