tests/testthat/test_hi.R

In ziqiangc/Elbo: My first R package

test_that("hi() start a conversation", {
    expect_identical(
        hi("world"),
        "hello WORLD you have 5 letters in your name!"
    )
    expect_identical(
        hi("world","whisper"),
        "hello world you have 5 letters in your name!"
    )
    expect_error(
        hi("world",how="murmur"))
})