Nothing
test_that("assertThat", {
expect_silent(assertThat(Set$new()$length, Set$new()$length == "0", "Not True"))
expect_error(assertThat(Set$new()$length, Set$new()$length == "2", "Not True"))
})
test_that("checkThat", {
expect_true(checkThat(Set$new()$length == "0", "Not True"))
expect_equal(checkThat(Set$new()$length == "2", "Not True"), "Not True")
})
test_that("testThat", {
expect_true(testThat(Set$new()$length == "0"))
expect_false(testThat(Set$new()$length == "2"))
})
test_that("isThat", {
expect_true(isThat(Set$new()$length == "0"))
expect_false(isThat(Set$new()$length == "2"))
})
test_that("makeChecks", {
expect_silent(makeChecks("Test", 1 == 1, "Error"))
})
test_that("getR6Class", {
expect_equal(getR6Class(Set$new()), "Set")
expect_equal(getR6Class(Set$new(), classname = F), Set)
})
test_that("stopwarn", {
expect_warning(expect_null(stopwarn(error = "warn", "Warning")))
expect_error(stopwarn(error = "stop", "Warning"))
})
test_that("testmessage", {
expect_true(testMessage(message("Hi")))
expect_warning(expect_false(testMessage(warning("Hi"))))
})
test_that("ifnerror", {
expect_equal(ifnerror(stop("Error"), noerror = "Success", error = "Failure", silent = T), "Failure")
expect_equal(ifnerror("Nerror", noerror = "Success", error = "Failure", silent = T), "Success")
expect_warning(ifnerror(stop("Error"), noerror = "Success", stopwarn = "warn", silent = T))
expect_error(ifnerror(stop("Error"), noerror = "Success", stopwarn = "stop", silent = T))
})
test_that("modal", {
expect_equal(modal(c(1, 2, 2, 4, 5, 6, 7, 2, 4, 4, 2, 4, 2)), 2)
expect_equal(modal(c(1, 2, 2, 4, 5, 6, 7, 2, 4, 4, 2, 4, 2, 4)), c(2, 4))
})
test_that("toproper", {
expect_equal(toproper("PROPER CaSe"), "Proper Case")
})
test_that("rapply", {
expect_equal(rlapply(list(Set$new(1), Set$new(2)), "strprint"), list("{1}", "{2}"))
expect_equal(rsapply(list(Set$new(1), Set$new(2)), "elements", active = TRUE), list(1, 2))
# expect_equal(rsapply(list(Set$new(1), Set$new(2)), "strprint"), c("{1}","{2}"))
expect_equal(rsapply(list(FuzzySet$new(1, 0.1, 2, 0.2), FuzzySet$new(1, 0.2, 2, 0.3)), "membership", 1), c(0.1, 0.2))
})
test_that("crispify", {
expect_equal(crispify(Set$new(1)), Set$new(1))
expect_equal(crispify(FuzzySet$new(1, 1)), Set$new(1))
expect_equal(crispify(FuzzyTuple$new(1, 1)), Tuple$new(1))
})
test_that("fuzzify", {
expect_equal(fuzzify(Set$new(1)), FuzzySet$new(1, 1))
expect_equal(fuzzify(FuzzySet$new(1, 1)), FuzzySet$new(1, 1))
expect_equal(fuzzify(Tuple$new(1)), FuzzyTuple$new(1, 1))
expect_error(fuzzify(Interval$new(1, 4)), "cannot be fuzzified")
})
test_that("setSymbol", {
useUnicode(FALSE)
expect_equal(setSymbol("Reals"), "R")
expect_equal(setSymbol(Reals), "R")
useUnicode(TRUE)
})
test_that("returner", {
expect_equal(returner(list(TRUE), TRUE), TRUE)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.