data(mm1) test_that("mm1 is a tuneR WAVE object", { expect_s4_class(mm1, "Wave") })