Validation checks to test if a given object is countablyfinite.
testCountablyFinite(object, errormsg = "This is not a countably finite set") checkCountablyFinite(object, errormsg = "This is not a countably finite set") assertCountablyFinite(object, errormsg = "This is not a countably finite set")
| object | object to test |
|---|---|
| errormsg | error message to overwrite default if check fails |
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.
testCountablyFinite(Set$new(1,2,3)) #> [1] TRUE testCountablyFinite(Interval$new(1,10)) #> [1] FALSE