test_that("returns error if creatingMatrix receives a non numeric matchCost", {
matchCost <- "a malevolent string"
expect_error(creatingMatrix(matchCost,-3,-4,"GTT","GCATT"))
})
test_that("returns error if creatingMatrix receives a non numeric mismatchCost", {
mismatchCost <- "a malevolent string"
expect_error(creatingMatrix(7,mismatchCost,-4,"GTT","GCATT"))
})
test_that("returns error if creatingMatrix receives a non numeric gapPenalty", {
gapPenalty <- "a malevolent string"
expect_error(creatingMatrix(7,-3,gapPenalty,"GTT","GCATT"))
})
test_that("returns error if creatingMatrix receives a non string sequenceA", {
sequenceA <- 1
expect_error(creatingMatrix(7,-3,-4,sequenceA,"GCATT"))
})
test_that("returns error if creatingMatrix receives a non string sequenceB", {
sequenceB <- 1
expect_error(creatingMatrix(7,-3,-4,"GTT",sequenceB))
})
test_that("returns error if creatingMatrix receives a NULL string as a sequenceA", {
sequenceA <- NULL
expect_error(creatingMatrix(7,-3,-4,sequenceA,"GCATT"))
})
test_that("returns error if creatingMatrix receives an empty string as a sequenceB", {
sequenceB <- ""
expect_error(creatingMatrix(7,-3,-4,"GTT",sequenceB))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.