tests/testthat/testthat.R

In Michael-Whitehouse/OneSwapSC1: contains a function to see if a vector can be ordered with at most one swap

library(testthat)
library(OneSwap)

test_that("oneswap returns correct response", {
  expect_equal(oneswap(c(1,2,3,4,5)), TRUE)
  expect_equal(oneswap(c(2,1,3,4,6,5,7)), FALSE)
  expect_equal(oneswap(c(1,2,7,4,5,6,3,8,9)), TRUE)
})