tests/testsuite/test_order.R

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

Renv <- new.env(parent = globalenv())
Renv$x <- c(1,1,3:1,1:4,3);
Renv$y <- c(9,9:1);
Renv$z <- c(2,1:9)
Renv$cy <- as.character(Renv$y)
Renv$x1 <- c(5:1, 6:8, 12:9)
FLenv <- as.FL(Renv)

test_that("order: by one vector",{
    eval_expect_equal({
        test2 <- order(x1)
    },Renv,FLenv)
})

test_that("order: by multiple vectors",{
    eval_expect_equal({
        test1 <- order(x , y , z)
    },Renv,FLenv)
})

test_that("order: by multiple vectors, support of decreasing argument vector",{
    eval_expect_equal({
        test3 <- order(x, cy, z, decreasing = c(FALSE, TRUE, FALSE))
                                        #method="radix")] not supported
    },Renv,FLenv)
})