tests/testthat/test-quicksort.R

test_that("quicksort sorts", {
  set.seed(123)
  x <- sample.int(100)
  expect_equal(quicksort(x), sort(x))
})
alessio-b-zak/ExamplePackage documentation built on Dec. 23, 2019, 7:30 p.m.