inst/unitTests/test_print_rjmcmcNucleosomesMerge.R

###################################################
# Created by Astrid Deschenes
# 2015-03-08
###################################################

###################################################
## Test the print.rjmcmcNucleosomesMerge.R function
###################################################

### {{{ --- Test setup ---

if(FALSE) {
    library( "RUnit" )
    library( "RJMCMCNucleosomes" )
}

### }}}


###########################################################
## print.rjmcmcNucleosomesMerge() function
###########################################################

test.print_rjmcmcNucleosomesMerge_test_returned_value <- function() {

    directoryWithRDSFiles <- system.file("extdata", package = "RJMCMCNucleosomes")

    resultInit <- mergeAllRDSFilesFromDirectory(directoryWithRDSFiles)

    result <- print(resultInit)

    message <- paste0(" test.print_rjmcmcNucleosomesMerge_test_returned_value() ",
                          "- print method did not returned expected value")

    checkEquals(resultInit, result, msg = message)
}

Try the RJMCMCNucleosomes package in your browser

Any scripts or data that you put into this service are public.

RJMCMCNucleosomes documentation built on Nov. 8, 2020, 8:20 p.m.