tests/testsuite/test_tr.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$mat1 = matrix(1:16,ncol=4)

FLenv = as.FL(Renv)

test_that("Check for trace function ",{
    result = eval_expect_equal({
        test1 = tr(mat1)
    },Renv,FLenv)
})