`out` not identical to `expected`.
Attributes: < Component "class": Lengths (3, 1) differ (string compare on first 1) >
Attributes: < Component "class": 1 string mismatch >

notes <- delimit_notes(notes, lines, meters)
notes <- metricalize(notes, lines, meters)
out <- notes[, c("start_bar", "start_offset", "end_bar", "end_offset")]
start_bar = as.integer(c(1, 1, 2, 2, 1)),
out <- metricalize(notes, lines, meters)
grace = c(FALSE, FALSE, TRUE, rep(FALSE, 15)),
# In case of `data.frame()` rather than `tibble()` being used
test_that("metricalization of adjacent chords works", {

"metricalization of adjacent chords works"

music <- Music() + Line("C4", "whole", bar = 2, offset = 2.5) + Meter(3, 4)