tests/testsuite/test_FLSqueezeSpace.R

In Fuzzy-Logix/AdapteR: Converts R syntax to SQL to provide fast analytics using in-database C++ library DB Lytix.

                                        #Not in R .
## Table does not exist in FL_TRAIN, Aster
test_that("FLSqueezeSpace",{
    widetable  <- FLTable(getTestTableName("tblstringID"), "stringID")
    flv <- widetable[1:6,"string"]
    resultflvector <- FLSqueezeSpace(flv)
    expect_equal(as.R(flv),as.R(resultflvector))

    singleSpace <- c("DU ANE", "Home Depot", "MARH TA", "WAL MA RT", "WALMART", "WARTHA")
    multiSpace <- gsub(" ","   ",singleSpace)
    flv <- as.FL(multiSpace)
    resultflvector <- FLSqueezeSpace(flv)
    expect_equal(singleSpace,as.R(resultflvector))
})