tests/testthat/test-findAlpha.R

In Stasharofi/ypssc: Yeast-Proteome Secondary-Structure Calculator

test_that("findAlpha works", {

    skip_on_cran()

    pathFileInput = system.file( "extdata", "exampleInputFile.csv", package = "ypssc" )

    temp = tempdir()
    if ( !dir.exists(temp) ) {
        dir.create(temp)
    }
    pathDirOutput = temp

    expect_output( findAlpha( pathFileInput = pathFileInput,
                              pathDirOutput = pathDirOutput, TRUE ),
                   "Analysis completed successfully!" )

    unlink( pathDirOutput, recursive = TRUE )

})