tests/testthat/test-friction_colebrook.R

In ratral/hyd4gpv: General Purpose Valve functions

test_that(desc = "Test friction_colebrook",
          {
            expect_equal( friction_colebrook(flow = 0.04200, dn = 0.150, roughness = 1.5e-6, temp = 14.555), 0.01446000, tolerance = 0.01)

            expect_equal( friction_colebrook(flow = 0.00025, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.04657560, tolerance = 0.05)
            expect_equal( friction_colebrook(flow = 0.00030, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.03881230, tolerance = 0.05)
            expect_equal( friction_colebrook(flow = 0.00040, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.04835293, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.00050, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.04534967, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.00070, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.04110045, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.00090, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.03832142, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.00100, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.03724566, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.00200, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.03128796, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.00400, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.02691050, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.00700, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.02427912, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.01000, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.02295369, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.02000, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.02103562, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.04000, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.01981617, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.07000, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.01920434, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.10000, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.01893902, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.15000, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.01872298, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.20000, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.01861124, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.30000, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.01849742, tolerance = 0.03)
            expect_equal( friction_colebrook(flow = 0.40000, dn = 0.200, roughness = 1.5e-4, temp = 14.555), 0.01843941, tolerance = 0.03)

          }
)