test_that("Check that error is zero if the input matrices are the same object", {
	results <- matrix_metrics(diag(10), diag(10))
	expect_equal(results$rmse[1], 0)
})