tests/testthat/test-3-utils-offset.R

In flujoo/gm: Create Music with Ease

test_that("all components that contain `offset` work", {
  music <-
    Music() +
    Meter(3, 4, 4) + Meter(4, 4, 5) + Meter(3, 4, 1, 2) +
    Line(90, bar = 3, offset = 10) +
    Clef("g", bar = 4, offset = 3) +
    Tempo(90, bar = 10, offset = 5)

  music[["meters"]] <- sort_by_bar(music[["meters"]])
  music <- round_offsets(music)

  lines <- music$lines
  clefs <- music$clefs
  tempos <- music$tempos

  out <- lines$bar
  expected <- 6L
  expect_identical(out, expected)

  out <- lines$offset
  expected <- 1
  expect_identical(out, expected)

  out <- clefs$bar
  expected <- 5L
  expect_identical(out, expected)

  out <- clefs$offset
  expected <- 0
  expect_identical(out, expected)

  out <- tempos$bar
  expected <- 11L
  expect_identical(out, expected)

  out <- tempos$offset
  expected <- 1
  expect_identical(out, expected)
})