#test_lseq.R
context("lseq")
# ==== BEGIN SETUP AND PREPARE =================================================
#
tmp <- c( 1.0
, 1.778279410038922980775
, 3.162277660168379522787
, 5.623413251903492060535
, 10.0)
# ==== END SETUP AND PREPARE ===================================================
test_that("corrupt input generates errors", {
expect_error(lseq(), "argument \"x\" is missing, with no default")
expect_error(lseq(0,10), "'from' must be a finite number")
expect_error(lseq(10,0), "'to' must be a finite number")
})
# ==== BEGIN TEARDOWN AND RESTORE ==============================================
# Remove every persitent construct that the test has created, except for
# stuff in tempdir().
#
# ==== END TEARDOWN AND RESTORE ===============================================
# [END]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.