tests/testthat/test_linalg.R

In shapelets/khiva-r: KHIVA-R library.

#
#Copyright (c) 2019 Shapelets.io
#
#This Source Code Form is subject to the terms of the Mozilla Public
#License, v. 2.0. If a copy of the MPL was not distributed with this
#file, You can obtain one at http://mozilla.org/MPL/2.0/.

testthat::setup(
  SetBackend(KHIVABackend()$KHIVA_BACKEND_CPU)
)

context("Khiva Lls tests")

test_that("Test Lls", {
  ta <- as.double(c(4, 3))
  tb <- as.double(c(-1, -2))
  blls <-  as.double(c(3, 1))

  a <- Array(array(c(ta, tb), dim = c(2, 2)), "f64")
  clls <- Array(array(c(blls), dim = c(2, 1)), "f64")
  out <- Lls(a, clls)
  d <- getData(out)
  expect_equal(d[1], 1, 1e-4)
  expect_equal(d[2], 1, 1e-4)
  deleteArray(a)
  deleteArray(clls)
  deleteArray(out)
})