tests/testthat/test_mix_dist.R

In csiro-crop-informatics/granular: Resolving starch granule distributions

library(granular)
context("mix_dist")

data(package = 'granular')
means <- c(C = 1, B = 5, A = 22)

means_nosort <- means[c(2,3,1)]

means_nonames <- setNames(means, NULL)

test_that("mix_dist is behaving", {
  expect_equal(mix_dist(Dist[[2]], Dist[[1]], means, sample_name = names(Dist)[2])[[1]], 
               ms1, tolerance = 1e-05)
  expect_equal(suppressWarnings(mix_dist(Dist[[3]], Dist[[1]], means, sample_name = names(Dist)[3]))[[1]], 
               ms2, tolerance = 1e-05)
  expect_equal(mix_dist(Dist[[4]], Dist[[1]], means, sample_name = names(Dist)[4])[[1]], 
               ms3, tolerance = 1e-05)
})

test_that("unsorted means give an error", {
  expect_error(mix_dist(Dist[[2]], Dist[[1]], means_nosort, sample_name = names(Dist)[2]), regexp = "ascending")
})

test_that("no mean names is OK", {
  expect_error(mix_dist(Dist[[2]], Dist[[1]], means_nonames, sample_name = names(Dist)[2]), NA)
  expect_message(mix_dist(Dist[[2]], Dist[[1]], means_nonames, sample_name = names(Dist)[2]), "No names supplied")
})