tests/testthat/test-forest_fire.R

In BastiHz/numberphile: Inspired by Numberphile Videos

test_that("the sequence generates correctly", {
    ff <- forest_fire(200)
    ff <- c(head(ff, 3), tail(ff, 3))
    control <- as.integer(c(1, 1, 2, 24, 20, 24))
    expect_identical(ff, control)
})