tests/testthat/test-1-duration-to-string.R

In flujoo/gm: Create Music with Ease

test_that("convert complex tuplets to string", {
  duration <- to_Duration("h / 4 *(8./q) / 5")

  out <- to_string(duration)
  expected <- "half/4*(eighth./quarter)/5"
  expect_equal(out, expected)

  out <- to_string(duration, TRUE)
  expected <- "h/4*(8./q)/5"
  expect_equal(out, expected)
})