eriol
/
liboceanography
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added tests for conductivity function

This commit is contained in:
Daniele Tricoli 2011-01-11 03:35:06 +01:00
parent 4b6ac225aa
commit da253867e3
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/check_oceanography.c
View File

@ -15,11 +15,23 @@ static int cmp_double(double x, double y)
START_TEST(test_salinity)
{
ck_assert(cmp_double(salinity(1, 15, 0), 35.0));
ck_assert(cmp_double(salinity(1.888091, 40, 10000), 40.0));
ck_assert(cmp_double(salinity(1.2, 20, 2000), 37.245628));
ck_assert(cmp_double(salinity(1, 15, 0), 35.0));
ck_assert(cmp_double(salinity(1.2, 20, 2000), 37.245628));
ck_assert(cmp_double(salinity(0.65, 5, 1500), 27.995347));
ck_assert(cmp_double(salinity(1.888091, 40, 10000), 40.0));
ck_assert(cmp_double(salinity(5e-5, 15, 0), 0.0));
ck_assert(cmp_double(salinity(5e-5, 15, 0), 0.0));
}
END_TEST
START_TEST(test_conductivity)
{
ck_assert(cmp_double(conductivity(35.0, 15, 0), 1.0));
ck_assert(cmp_double(conductivity(37.245628, 20, 2000), 1.2));
ck_assert(cmp_double(conductivity(27.995347, 5, 1500), 0.65));
ck_assert(cmp_double(conductivity(40.0, 40, 10000), 1.888091));
ck_assert(cmp_double(conductivity(0.02, 15, 0), 0.0));
}
END_TEST
@ -28,6 +40,7 @@ Suite *oceanography_suite(void)
Suite *s = suite_create("Oceanography");
TCase *tc_core = tcase_create("Core");
tcase_add_test(tc_core, test_salinity);
tcase_add_test(tc_core, test_conductivity);
suite_add_tcase(s, tc_core);
return s;