hash_raw_md5(bitmap_batch) (`actual`) not equal to "61fc229d56539ee16663167c9d5fc3f7" (`expected`).

`actual`:   "03618a64dd1dfe2120d1ae11b7cdd339"
`expected`: "61fc229d56539ee16663167c9d5fc3f7"

"hull_data_list_check works with valid input",
"hull_data_list_check fails with unnamed list",
"hull_data_list_check fails without order column",
"hull_data_list_check fails without value column",
"hull_data_list_check fails with non-unique values",
A=data.frame(order=c(1, 1, 3, 4), value=c(5, 5, 7, 8), dummy=rep(NA, 4)),
test_that("single_variable_check works with valid input", {
test_that("single_variable_check fails without batch column", {
test_that("single_variable_check fails without order column", {
test_that("single_variable_check fails without value column", {
"compute_intra_batch_dispersion works with valid input",
"compute_inter_batch_dispersion works with valid input",
"compute_ratio warns with zero denominator",
"calculate_convex_indicators works with valid input",
all(c("Variable", "InterB", "IntraB", "Ratio") %in% names(result))
"calculate_convex_hull works with valid input",
expect_true(all(sapply(res, function (df) nrow(df) >= 3)))
res_mean <- calculate_convex_hull(data, "blah", "mean")
res_median <- calculate_convex_hull(data, "blah", "median")
expect_true(all(sapply(res_mean, function (df) nrow(df) >= 3)))
"calculate_convex_hull warns with unvalid batch",
"convex_analysis_of_variables works with valid input",
metabolite1 = round(rnorm(30, mean = 100, sd = 10),3),
metabolite2 = round(rnorm(30, mean = 200, sd = 20), 3)
expect_true(all(names(result) == c("data", "indicators", "convex_hulls")))
"convex_analysis_of_variables fails with unvalid input",
test_that("plot_convex_hull works with valid input",
test_that("plot_convex_hull fails with wrong input",
colnames(indicators) <- c("Variable", "interb", "intrab", "ratio")

"hull_data_list_check works with valid input"
"hull_data_list_check fails with unnamed list"
"hull_data_list_check fails without order column"
"hull_data_list_check fails without value column"
"hull_data_list_check fails with non-unique values"
"single_variable_check works with valid input"
"single_variable_check fails without batch column"
"single_variable_check fails without order column"
"single_variable_check fails without value column"
"compute_intra_batch_dispersion works with valid input"
"compute_inter_batch_dispersion works with valid input"
"compute_ratio warns with zero denominator"
"calculate_convex_indicators works with valid input"
"calculate_convex_hull works with valid input"
"calculate_convex_hull warns with unvalid batch"
"convex_analysis_of_variables works with valid input"
"convex_analysis_of_variables fails with unvalid input"
"plot_convex_hull works with valid input"
"plot_convex_hull fails with wrong input"

hash_raw_md5(bitmap_global) (`actual`) not equal to "e90fd69b670212d8170dbfdcd77e36c1" (`expected`).

`actual`:   "31a67ec80d456b6eca92d02291ba0cad"
`expected`: "e90fd69b670212d8170dbfdcd77e36c1"