inst/tests/testhnunode.r

In felixlindemann/HNUORTools: Operations Research Tools

context("Testing Nodes.")  

# create a new Node with specific values"
node<- new("Node", x= 10, y=20, id="myid", label = "mylabel")

# test_that('Coordinates are correct')"
context("\tTest 01: Are Objects correctly created?")
test_that("Coordinates are correct", {

	expect_equal(node$x, 10)
	expect_equal(node$y, 20)
	expect_false(node$x == 12)
	expect_false(node$y == 12)

})
    
#setup dataframe.
#
# create test objects"
df<- data.frame(x=10,y=20, id ="myid", label ="mylabel")
li<- list(x=10,y=20, id ="myid", label ="mylabel")

node01 <- new("Node", df)
node02 <-  as(df, "Node") 
node03 <- as.Node(df)


context("\tTest 02: Are Objects correctly converted from a data.frame?")
test_that("Coordinates are correct", {
  expect_that(node01$x, equals(df$x)) 
  expect_that(node01$y, equals(df$y)) 
})
 
test_that("Conversion are correct", {
  expect_identical(node01, node02)
  expect_identical(node01, node03)
  expect_identical(node02, node03)
})

context("\tTest 03: Are Objects correctly converted from a list?")

node01 <- new("Node", li)
node02 <- as(li, "Node") 
node03 <- as.Node(li)
 
test_that("Is.Node working", {
  expect_false(is(li, "Node"))
  expect_true(is(node01, "Node"))
  expect_true(is.Node(node01))
})


context("\tTest 04: Are Objects correctly converted back and forwards?")
node.orignal<- new("Node") #random node
df<- as.data.frame(node.orignal) 
 
test_that("Back-Forward Conversion is working", {
    expect_that(node.orignal, equals(as.Node(df)))  
    expect_that(node.orignal, equals(new("Node",df)))
    expect_that(node.orignal, equals(as(df,"Node")))
})

context("\tTest 05: Are Node-Methods working correctly?") 
n1 <- new("Node",x=10,y=20, id ="n1")
n2 <- new("Node",x=13,y=24, id ="n2")
 
test_that("Distances are calculated correctly", {
  	expect_that(getDistance(n1,n2), equals(5))  
})
   
test_that("Costs are calculated correctly", {
  expect_that(getDistance(n1,n2, costfactor = 2), equals(10))  
})   

context("done.") 
context("--------------------------------------------------")