tests/testthat/test_TourLength.R

In bjhufstetler/LeapFrog: LeapFrog for TSP

test_that("TourLength provides proper messages and warnings", {
  expect_error(TourLength(distMatrix = data.frame(matrix(1, ncol = 4, nrow = 4)), 
                           tour = c(1,2,3,4)))
  expect_error(TourLength(matrix(1, ncol = 4, nrow = 3), 
                           tour = c(1,2,3,4)))
  expect_error(TourLength(matrix("a", ncol = 4, nrow = 4), 
                           tour = c(1,2,3,4)))
  expect_error(TourLength(matrix(1, ncol = 2, nrow = 2), 
                           tour = c(1,2)))
  expect_error(TourLength(matrix(1, ncol = 4, nrow = 4), 
                           tour = matrix(1, ncol = 4, nrow = 4)))
  expect_error(TourLength(matrix(1, ncol = 4, nrow = 4), 
                           tour = c(1,2,3,"a")))
  expect_error(TourLength(matrix(1, ncol = 4, nrow = 4), 
                           tour = c(1,2,3)))
})

test_that("TourLength has correct dimensions and output type", {
  expect_true(TourLength(matrix(c(0,6,7,10,
                                   6,0,5,7,
                                   7,5,0,6,
                                   10,7,6,0), 
                                 byrow = TRUE, ncol = 4, nrow = 4), 
                          tour = c(1,3,4,2))==26)
})