## Parameters
exppath <-  system.file("extdata", "exptab.csv", package="tepr")
expdf <- read.csv(exppath)

## ----- Checking errors ----- ##
test_that("Errors are thrown when calling checkexptab", {

    exptest <- expdf
    colnames(exptest) <- c("cond", "replicate", "direction", "strand", "path")
    expm <- paste0("The experiment table should have the columns: 'condition',",
        " 'replicate', 'direction', 'strand', 'path'.")
    expect_error(checkexptab(exptest), regexp = expm)

    exptest <- expdf
    exptest[1, 3] <- "toto"
    expm <- paste0("\n\t Only two values are allowed for the column direction",
        " of the experiment table, 'forward' and 'reverse'.\n")
    expect_error(checkexptab(exptest), regexp = expm)

    exptest <- expdf
    exptest[1, 4] <- "toto"
    expm <- paste0("\n\t The strand column of the experiment table should only ",
            "contain 'plus' and 'minus'.\n")
    expect_error(checkexptab(exptest), regexp = expm)

    exptest <- expdf
    exptest[1, 1] <- "toto_wt"
    expm <- paste0("\n\t The condition names should not contain any special ",
            "characters such as '_' or '-'.\n")
    expect_error(checkexptab(exptest), regexp = expm)
})