tests/testthat/test-brightnessgraph.R

In musicMCT: Analyze the Structure of Musical Scales

test_that("bg_reduction works", {
  goal_matrix <- matrix(c(0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0), nrow=4)
  expect_equal(bg_reduction(c(0,1,2,7)), goal_matrix)
})

test_that("brightness graph images consistent", {
  c_major_19edo <- c(0,3,6,8,11,14,17)
  cmaj_bg <- function() brightnessgraph(c_major_19edo, edo=19)
  vdiffr::expect_doppelganger("Brightness Graph for C major in 19edo",
                               cmaj_bg)

  test_hexachord <- c(0,1,3,6,7,9)
  hexa_bg <- function() brightnessgraph(test_hexachord, fixed_do=TRUE, show_sums=FALSE)
  vdiffr::expect_doppelganger("Brightness Graph for sc6-30", hexa_bg)
})

test_that("brightness graph goal param works", {
  common_triad_bg <- function() brightnessgraph(c(0, 4, 7), c(0, 3, 7))
  vdiffr::expect_doppelganger("Brightness Graph for sc3-11",
                              common_triad_bg)
})