tests/testsuite/test_diag.R

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

#testing diag function
Renv <- new.env(parent = globalenv())
Renv$a <-3
Renv$b<-1:3
Renv$c<-1:5
Renv$d <- matrix(0,3,3)
diag(Renv$d) <- 1:3
Renv$x <- 1:5
Renv$y <- stats::rnorm(5)
Renv$z <- matrix(rnorm(6),3,
            dimnames=list(c("a","b",""),
              c("a","b")))

FLenv <- as.FL(Renv)

test_that("dim of diag for vector of length 1 ",
  {
    result1=eval_expect_equal({test1<-dim(diag(a))},Renv,FLenv)
    ##print(result1)
  })

test_that(
  "diag for vector of length > 1 ",
  {
    result2=eval_expect_equal({test2<-diag(c)},Renv,FLenv)
    ##print(result2)
  })

test_that(
  "diag for matrix with unconventional names ",
  {
    result5=eval_expect_equal({
     test5<-diag(z)
    },Renv,FLenv,
    tolerance=1e-7)
    ##print(result5)
  })

test_that(
  "Testing equality on all elements of diag ",
  {
    result3=eval_expect_equal({
              test3<-all(diag(b)==d)
            },Renv,FLenv)
    ##print(result3)
  })