tests/testsuite/test_matrixmultiplication.R

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

#testing matrix multiplication
## https://app.asana.com/0/143316600934101/148450351472400
## Make sure these tests run without check.attributes
Renv <- new.env(parent = globalenv())
Renv$x<-1:4
Renv$y<-diag(Renv$x)
Renv$z<-matrix(1:12, ncol = 3, nrow = 4)
FLenv <- as.FL(Renv)
test_that( "Testing vectors",
           {
            result1=eval_expect_equal({
            test1<-x%*%x
             },Renv,FLenv,check.attributes=FALSE)
             })
test_that( "Testing matrices",
           {
            result2=eval_expect_equal({
            test2<-y%*%z
             },Renv,FLenv)
           })
test_that( "Testing matrix & vector",
           {
            result3=eval_expect_equal({
            test3<-y%*%x
             },Renv,FLenv,check.attributes=FALSE)
           })
test_that( "Testing vector & matrix",
           {
            result4=eval_expect_equal({
            test4<-x%*%z
             },Renv,FLenv,check.attributes=FALSE)
           })