tests/testthat/test-pyramidi.R

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

test_that("meta events work", {
  skip_if_no_miditapyr()
  mid_file_str <- system.file("extdata", "test_midi_file.mid", package = "pyramidi")
  mido_mid_file <- mido$MidiFile(mid_file_str)
  dfc <- miditapyr$frame_midi(mido_mid_file)
  ticks_per_beat = mido_mid_file$ticks_per_beat
  df <- dfc %>%
    miditapyr$unnest_midi()
  miditapyr$split_df(df) %->% c(df_meta, df_notes)

  dfm <- tab_measures(df, ticks_per_beat)
  dfw <- dfm %>% pivot_wide_notes()
  testthat::expect_snapshot(tab_time_sig(df_meta))
  testthat::expect_snapshot(dfm)
  testthat::expect_snapshot(dfw)
  expect_equal(get_tempo(df_meta), 666666)
  expect_equal(round(get_bpm(df_meta), 2), 90)
})