tests/testsuite/test_mode.R

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

## Data objects initialisation.
Renv = new.env(parent = globalenv())
Renv$vector1 = sample(1:100,6,replace = TRUE)
Renv$matrix1 = matrix(sample(1:100,6,replace = TRUE), nrow = 2, byrow = TRUE)
Renv$dataframe1 = data.frame(a=sample(1:100,6,replace = TRUE),
                             b=sample(1:100,6,replace = TRUE))
FLenv = as.FL(Renv)

test_that("Check for mode with FL and R vector object",{
  result = eval_expect_equal({
    test1 = mode(vector1)
  },Renv,FLenv)
  ##print(result)
})

test_that("Check for mode with FL and R matrix object",{
  result = eval_expect_equal({
    test2 = mode(matrix1)
  },Renv,FLenv)
  ##print(result)
})