tests/testthat/test-dynamic_viscosity.R

In ratral/hyd4gpv: General Purpose Valve functions

test_that(
  desc = "Test dynamic viscosity",
    {
      expect_equal( dynamic_viscosity( 3),   1.6190, tolerance = 0.03)
      expect_equal( dynamic_viscosity( 4),   1.5673, tolerance = 0.03)
      expect_equal( dynamic_viscosity( 5),   1.5182, tolerance = 0.03)
      expect_equal( dynamic_viscosity( 6),   1.4715, tolerance = 0.03)
      expect_equal( dynamic_viscosity( 7),   1.4271, tolerance = 0.03)
      expect_equal( dynamic_viscosity( 8),   1.3847, tolerance = 0.03)
      expect_equal( dynamic_viscosity( 9),   1.3444, tolerance = 0.03)
      expect_equal( dynamic_viscosity(10),   1.3059, tolerance = 0.03)
      expect_equal( dynamic_viscosity(20),   1.0016, tolerance = 0.03)
      expect_equal( dynamic_viscosity(30),   0.7972, tolerance = 0.03)
      expect_equal( dynamic_viscosity(40),   0.6527, tolerance = 0.03)
      expect_equal( dynamic_viscosity(50),   0.5465, tolerance = 0.03)
      expect_equal( dynamic_viscosity(60),   0.4660, tolerance = 0.03)
      expect_equal( dynamic_viscosity(70),   0.4035, tolerance = 0.03)
      expect_equal( dynamic_viscosity(80),   0.3540, tolerance = 0.03)
      expect_equal( dynamic_viscosity(90),   0.3149, tolerance = 0.03)
  }
)