tests/testthat/test_testingresults.R

In rebinhosini/AdvancedR: Lab3

library(lab3package)
library(testthat)
context("euclidian")

test_that("The code gives correct output", {
  expect_that(euclidian(1000,1000), equals(1000))
  expect_that(euclidian(100,1000), equals(100))
  expect_that(euclidian(2,8), equals(2))
  expect_that(euclidian(3,5), equals(1))
  expect_that(euclidian(123612, 13892347912), equals(4))
})