tests/testthat/test-kinematic_viscosity.R

In ratral/hyd4gpv: General Purpose Valve functions

test_that(desc = "Kinematic_viscosity",
          {
           expect_equal( kinematic_viscosity(10),  1.3065 , tolerance = 0.02)
            expect_equal( kinematic_viscosity(20), 1.0035 , tolerance = 0.02)
            expect_equal( kinematic_viscosity(25), 0.8927 , tolerance = 0.02)
            expect_equal( kinematic_viscosity(30), 0.8007 , tolerance = 0.03)
            expect_equal( kinematic_viscosity(40), 0.6579 , tolerance = 0.03)
            expect_equal( kinematic_viscosity(50), 0.5531 , tolerance = 0.03)
            expect_equal( kinematic_viscosity(60), 0.4740 , tolerance = 0.03)
            expect_equal( kinematic_viscosity(70), 0.4127 , tolerance = 0.04)
            expect_equal( kinematic_viscosity(80), 0.3643 , tolerance = 0.04)
          }
)