tests/testthat/test_expandedLinkTable-s3.r

In bradleyjeck/epanetReader: Read Epanet Files into R

#******************************************
#
#  (C) Copyright IBM Corp. 2014
#
#  Author: Bradley J Eck 
#
#******************************************

#  File: test_expandedLinkTable-s3.r
#  By  : bradley.eck@ie.ibm.com

context("expandedlinkTable s3 object")
test_that("expanedLinkTable works for Net1",
		{
			Net1 <- suppressWarnings(read.inp( "Net1.inp"))
			
			# pipes 
			ept <- expandedLinkTable( Net1$Pipes, Net1$Coordinates)
			y2111 <- subset(ept, ID == '111', select = 'y2')
			expect_that(as.numeric(y2111), equals(40))
		        expect_true( is.expandedLinkTable( ept) ) 
			
			# pumps 
			ept <- expandedLinkTable( Net1$Pumps, Net1$Coordinates)
			expect_that(ept$x1[1], equals(10))
		        expect_true( is.expandedLinkTable( ept) ) 

			# valves 
			evt <- expandedLinkTable( Net1$Valvesves, Net1$Coordinates)
		    expect_that(evt, equals(NA))	
			
		}
)

test_that("expanedLinkTable handles correctly node ids",
    {
      Net4 <- suppressWarnings(read.inp( "Net4.inp"))

      # we expect that source INP contains valid coordinates for all junctions
      expect_false(any(is.na(Net4$Coordinates$X.coord)))
      expect_false(any(is.na(Net4$Coordinates$Y.coord)))
      
      ept <- expandedLinkTable(Net4$Pipes, Net4$Coordinates)
      expect_true( is.expandedLinkTable(ept) ) 
      
      # assert valid coordinates in expandedLinkTable
      expect_false(any(is.na(ept$x1)))
      expect_false(any(is.na(ept$x2)))
      expect_false(any(is.na(ept$y1)))
      expect_false(any(is.na(ept$y2)))
    }
)