tests/testthat/test-distributive-multiplication.R

In ianmoran11/ralget: Algebraic graphs in R.

test_that("multiplication is distributive", {
  library(tidyverse)
  library(tidygraph)
  library(ralget)
  library(testthat)

expect_true(v("a") * (v("b") + v("c")) ==  v("a")*v("b") + v("a")*v("c"))

})