tests/testthat/test-fibonacciSequence.R

In mjsteinbaugh/devtools: Acid Genomics Developer Tools

test_that("fibonacciSequence", {
    expect_identical(
        object = fibonacciSequence(1L),
        expected = 1L
    )
    expect_identical(
        object = fibonacciSequence(2L),
        expected = c(1L, 1L)
    )
    expect_identical(
        object = fibonacciSequence(8L),
        expected = c(1L, 1L, 2L, 3L, 5L, 8L, 13L, 21L)
    )
})