inst/unitTests/test_print_methylInheritanceAllResults.R

In adeschen/methylInheritance: Permutation-Based Analysis associating Conserved Differentially Methylated Elements Across Multiple Generations to a Treatment Effect

###################################################
# Created by Astrid Deschenes
# 2017-01-25
###################################################

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

data("methylInheritanceResults")

###########################################################
## print.methylInheritanceAllResults() function
###########################################################

test.print_methylInheritanceAllResults_test_returned_value <- function() {
    result <- print(methylInheritanceResults)

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

    checkEquals(result, methylInheritanceResults, msg = message)
}