tests/testthat/test-newMRParams.R

In sizespectrum/mizerMR: Add multiple size-structured resources to a mizer model

test_that("newMRParams works", {
    params <- newMultispeciesParams(NS_species_params, NS_interaction,
                                    gear_params = data.frame(),
                                    info_level = 0)
    rp <- as.data.frame(params@resource_params)
    rp <- rbind(rp, rp)
    rp$resource <- c("res1", "res2")
    params <- setMultipleResources(params, rp)
    params@initial_n_pp[] <- 0
    expect_unchanged(
        suppressMessages(
            newMRParams(NS_species_params, NS_interaction,
                        resource_params = rp)
            ),
        params)
})