tests/testthat/test_misc.R

context("miscellaneous")

test_that("signc works", {
  expect_identical(signc(-1:1), c("-", "0", "+"))
  expect_identical(signc(-1:1, "|"), c("-", "|", "+"))
  expect_error(signc("1"))
})
avidclam/amxtra documentation built on May 17, 2019, 12:01 p.m.