tests/testthat/test-fixSLids.R

In ices-tools-dev/icesRDBES: Functions for the ICES Regional Database and Estimation System (RDBES)

capture.output({ ## suppresses printing of console output when running test()

  test_that("fixesSLids returns expected columns in expected order", {

    myH1RawObject <- H1Example

    # Only use a subset of the test data
    myH1RawObject <- filterRDBESDataObject(myH1RawObject, c("DEstratumName"), c("DE_stratum1_H1"), killOrphans = TRUE)

	expectedColsSL<-c("SLid", "SLrecType", "SLcou", "SLinst", "SLspeclistName","SLyear","SLcatchFrac")
	expect_equal(colnames(fixSLids(myH1RawObject)$SL), expectedColsSL)
	expectedColsIS<-c("ISid","SLid", "IStaxaId", "ISrecType", "IScommTaxon","ISsppCode")
	expect_equal(colnames(fixSLids(myH1RawObject)$IS), expectedColsIS)
})

  test_that("SLid returned by fixesSLids exists in SS", {

    myH1RawObject <- H1Example
    #see https://github.com/r-lib/testthat/issues/1346
	expect_true(all(unique(myH1RawObject$SS$SLid) %in% unique(fixSLids(myH1RawObject)$SL$SLid)))


})

  test_that("SLid returned by fixesSLids exists in SL", {

    myH1RawObject <- H1Example
    #see https://github.com/r-lib/testthat/issues/1346
    expect_true(all(unique(myH1RawObject$SS$SLid) %in% unique(fixSLids(myH1RawObject)$IS$SLid)))

  })

  test_that("IStaxaId returned by fixesSLids similar to original IS$ISid", {

    myH1RawObject <- H1Example
  	expect_equal(sort(fixSLids(myH1RawObject)$IS$IStaxaId), sort(myH1RawObject$IS$ISid))

})


  test_that("fixesSLids issues message if IStaxaId already there", {

    myH1RawObject <- H1Example
	myH1RawObject$IS$IStaxaId<-NA
	expect_error(fixSLids(myH1RawObject, strict=F))

  })

})