set6 (version 0.2.4)

testFuzzyMultiset: assert/check/test/FuzzyMultiset

Description

Validation checks to test if a given object is an R6 FuzzyMultiset.

Usage

testFuzzyMultiset(object, errormsg = "This is not an R6 FuzzyMultiset object")
checkFuzzyMultiset(object, errormsg = "This is not an R6 FuzzyMultiset object")
assertFuzzyMultiset(
  object,
  errormsg = "This is not an R6 FuzzyMultiset object"
)

Arguments

object

object to test

errormsg

error message to overwrite default if check fails

Value

If check passes then assert returns object invisibly and test/check return TRUE. If check fails, assert stops code with error, check returns an error message as string, and test returns FALSE.

Examples

# NOT RUN {
testFuzzyMultiset(Set$new(2, 3))
testFuzzyMultiset(list(Set$new(2), Set$new(3)))
testFuzzyMultiset(Tuple$new(2, 3))
testFuzzyMultiset(Interval$new())
testFuzzyMultiset(FuzzySet$new(2, 0.1))
testFuzzyMultiset(FuzzyTuple$new(2, 0.1))
testFuzzyMultiset(ConditionalSet$new(function(x) x == 0))
# }