tests/testthat/test-legacy_consistency.R

In pmcharrison/hcorp: Music Corpora for Harmonic Analysis

context("legacy_consistency")

library(hrep)
library(magrittr)

test_that("examples from reading json", {
  test <- function(old, new) {
    x <- old %>% lapply(function(x) x %% 12L) %>%
      lapply(pc_chord)
    y <- new %>% decode %>% as.list
    expect_equal(x, y)
  }

  # Classical beginning of composition 1
  test(old = list(c(55,62,71),c(52,60,67,71),c(54,62,69),c(55,62,71)),
       new = hcorp::classical_1[[1]][1:4])

  # Popular beginning of composition 1
  test(old = list(c(57,60,64),c(48,64,67),c(57,60,64),c(48,64,67)),
       new = hcorp::popular_1[[1]][1:4])

  # Jazz beginning of composition 1
  test(old = list(c(53,60,64,69),c(56,60,63,66),c(49,60,65,68),c(52,62,68,71)),
       new = hcorp::jazz_1[[1]][1:4])

  # Bach chorales beginning of composition 1
  expect_equal(list(c(43, 59, 62, 67),
                    c(55, 59, 62, 67),
                    c(52, 60, 64, 67),
                    c(52, 59, 64, 67)),
               hcorp::bach_chorales_1[[1]][1:4] %>% as.list %>% lapply(as.numeric))
})

test_that("more thorough legacy tests", {
  summarise_corpus <- function(x) {
    as.list(x[1:20]) %>%
      lapply(function(composition) as.list(hrep::decode(composition)))
  }

  get_core_corpora <- function() {
    list(classical_1 = hcorp::classical_1,
         popular_1 = hcorp::popular_1,
         jazz_1 = hcorp::jazz_1)
  }

  if (FALSE) {
    get_core_corpora() %>%
      lapply(summarise_corpus) %>%
      saveRDS("inst/regression-tests/regression-1.rds")
  }

  get_core_corpora() %>%
    lapply(summarise_corpus) %>%
    expect_equal(readRDS(system.file("regression-tests/regression-1.rds",
                                     package = "hcorp",
                                     mustWork = TRUE)))
})