diff --git a/tests/testthat/test-convertedBaseFunctions.R b/tests/testthat/test-convertedBaseFunctions.R index c903441..bfc3fe8 100644 --- a/tests/testthat/test-convertedBaseFunctions.R +++ b/tests/testthat/test-convertedBaseFunctions.R @@ -194,4 +194,11 @@ test_that("fix works as expected", { X <- matrix(c(-1.9, -3.4, 1.6, 2.5, -4.5, 4.5), 3, byrow=TRUE) Y <- matrix(c(-1, -3, 1, 2, -4, 4), 3, byrow=TRUE) expect_identical(fix(X), Y) +}) + +test_that("isspace works as expected", { + chr <- '123 Main St.' + X <- '\t a b\tcde f' + expect_identical(isspace(chr), c(0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0)) + expect_identical(isspace(X), c(1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0)) }) \ No newline at end of file