tests/testthat/test-water_density.R

In ratral/hyd4gpv: General Purpose Valve functions

test_that(desc = "Water density",
          {
            expect_equal( water_density( 3),  1012.540, tolerance = 0.03)
            expect_equal( water_density( 4),  1011.930, tolerance = 0.03)
            expect_equal( water_density( 5),  1011.330, tolerance = 0.03)
            expect_equal( water_density( 6),  1010.720, tolerance = 0.03)
            expect_equal( water_density( 7),  1010.110, tolerance = 0.03)
            expect_equal( water_density( 8),  1009.500, tolerance = 0.03)
            expect_equal( water_density( 9),  1008.890, tolerance = 0.03)
            expect_equal( water_density(10),  1008.300, tolerance = 0.03)
            expect_equal( water_density(20),   998.200, tolerance = 0.03)
            expect_equal( water_density(30),   995.772, tolerance = 0.03)
            expect_equal( water_density(40),   992.200, tolerance = 0.03)
            expect_equal( water_density(50),   982.729, tolerance = 0.03)
            expect_equal( water_density(60),   983.200, tolerance = 0.03)
            expect_equal( water_density(80),   971.800, tolerance = 0.03)
          }
)