tests/testthat/testQ.R

context("Tests queue")

test_that("Testing queue", {
  q = queue()
  for(i in 1:5) enqueue(q,i)
  expect_equal(dequeue(q), 1)
  expect_equal(dequeue(q), 2)
  enqueue(q, 15)
  expect_equal(dequeue(q), 3)
})

Try the sourceR package in your browser

Any scripts or data that you put into this service are public.

sourceR documentation built on Aug. 31, 2020, 5:06 p.m.