tests/testthat/test-tensor_symbols.R

In ricci: Ricci Calculus

test_that("creating d works", {
  expect_tensor_equal(
    d(3)(i, +j),
    diag(1, 3, 3) %_% .(i, +j)
  )

  expect_snapshot(
    d(3)(i, j),
    error = TRUE
  )

  expect_snapshot(
    d(3)(i, j, k),
    error = TRUE
  )
})

test_that("creating e works", {
  expect_tensor_equal(
    e(i, j),
    array(c(0, -1, 1, 0), dim = c(2, 2)) %_% .(i, j)
  )

  expect_snapshot(
    e(+i, j),
    error = TRUE
  )
})