tests/testthat/test-reynolds_number.R

In ratral/hyd4gpv: General Purpose Valve functions

test_that(desc = "Test reynolds number",
          {
            expect_equal( reynolds_number(flow = 0.04200, dn = 0.150, temp = 14.555), 312725.00000, tolerance = 0.1)

            expect_equal( reynolds_number(flow = 0.00025, dn = 0.200, temp = 14.555),   1374.11023, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.00030, dn = 0.200, temp = 14.555),   1648.93227, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.00040, dn = 0.200, temp = 14.555),   2198.57637, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.00050, dn = 0.200, temp = 14.555),   2748.22046, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.00070, dn = 0.200, temp = 14.555),   3847.50864, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.00090, dn = 0.200, temp = 14.555),   4946.79682, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.00100, dn = 0.200, temp = 14.555),   5496.44091, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.00200, dn = 0.200, temp = 14.555),   10992.8818, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.00400, dn = 0.200, temp = 14.555),   21985.7637, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.00700, dn = 0.200, temp = 14.555),   38475.0864, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.01000, dn = 0.200, temp = 14.555),   54964.4091, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.02000, dn = 0.200, temp = 14.555),  109928.8180, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.04000, dn = 0.200, temp = 14.555),  219857.6370, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.07000, dn = 0.200, temp = 14.555),  384750.8640, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.10000, dn = 0.200, temp = 14.555),  549644.0910, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.15000, dn = 0.200, temp = 14.555),  824466.1370, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.20000, dn = 0.200, temp = 14.555), 1099288.1800, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.30000, dn = 0.200, temp = 14.555), 1648932.2700, tolerance = 0.1)
            expect_equal( reynolds_number(flow = 0.40000, dn = 0.200, temp = 14.555), 2198576.3700, tolerance = 0.1)
          }
)