tests/testthat/test-midi_frames.R

In urswilke/pyramidi: Generate and Manipulate Midi Data in R Data Frames

midi_file_string <- system.file("extdata", "test_midi_file.mid", package = "pyramidi")
mfr <- r_midi_frames(midi_file_string)

test_that("print of r_midi_frames() correct", {
  expect_snapshot(mfr,
                  transform = \(x) stringr::str_replace(x, "0x[0-9a-fA-F]+", "<stochastic term :)>"))
  expect_snapshot(list(
    mfr$mf$midi_frame_raw,
    mfr$mf$midi_frame_unnested$df,
    mfr$mf$midi_frame_nested$df
  ))
})