tests/testthat/test_euclidean.R

In dsn00b/Euclid_Dijkstras: Implements Euclid's and Djikstra's Algorithms

context("euclidean")

test_that("GDC is calculated correctly.", {
  expect_equal(euclidean(123612, 13892347912), 4)
  expect_equal(euclidean(100, 1000), 100)
  expect_equal(euclidean(-100, 1000), 100)
  expect_equal(euclidean(-100, 2.5), 2.5)
  expect_equal(euclidean(100, -2.5), -2.5)
})


test_that("Wrong input throws an error.", {
  expect_error(euclidean("100", 1000))  
  expect_error(euclidean(100, "1000"))
  expect_error(euclidean(TRUE, "1000"))
  expect_error(euclidean(c(1, 2), 1000))
})