tests/testthat/test-repeat.R

context("Repeat loops")

test_that("simple repeat loops", {

  f <- function() repeat { }
  expect_equal(cyclocomp(f), 2)
})
MangoTheCat/cyclocomp documentation built on July 12, 2021, 1:18 a.m.