tests/testthat/test-diameter_model.R

In nicholascarey/loomeR: Looming Animations for Use in Behavioural and Neurological Experiments

capture.output({  ## stops printing outputs on assigning

  test_that("list is created", {
    expect_output(str(diameter_model()), "List of 6")
  })

  test_that("class", {
    model <- diameter_model()
    expect_is(model, "diameter_model")
  })

  test_that("number of frames generated matches duration at frame rate", {
    # random duration and frame rate
    d <- round(runif(1, min=0, max=20), 2)
    f <- floor(runif(1, min = 12, max = 120))
    # create model
    mod <- diameter_model(duration = d,
                          frame_rate = f)
    # check number of frames output equals duration times frame rate rounded up
    expect_equal(nrow(mod$model),
                 ceiling(mod$duration*mod$frame_rate))
  })

  test_that("stops if expansion operator not set correctly", {
    expect_error(diameter_model(expansion = "diam_mod"),
                 "expansion operator not set correctly: must be 'constant_speed' or 'constant_diameter'")
  })

  test_that("works with expansion = 'constant_diameter'", {
    expect_output(str(diameter_model(expansion = "constant_diameter")),
                  "List of 6")
  })

}) ## turns printing back on