diff --git a/src/pf_tests/test_mo_polynomial.pf b/src/pf_tests/test_mo_polynomial.pf index e4c1e065992d592fc3d8c4cfd9345eb18da78832..fe93c7a1c35132281e1ece9ef6a2a0f0c6879914 100644 --- a/src/pf_tests/test_mo_polynomial.pf +++ b/src/pf_tests/test_mo_polynomial.pf @@ -14,7 +14,6 @@ module test_mo_polynomial contains -! Test coordinate of a point compared to polygon @test subroutine test_polynomial() real(dp), dimension(1) :: p1 @@ -23,10 +22,10 @@ module test_mo_polynomial integer(i4) :: status @assertEqual(poly_order(p), 4_i4) - @assertEqual(poly_order([1.0_dp]), 1_i4) + @assertEqual(poly_order([1.0_dp]), 0_i4) p1 = poly_deriv([1.0_dp]) - @assertEqual(p1(1), 0_i4) + @assertEqual(p1(1), 0.0_dp, tolerance=tol) @assertEqual(poly_eval(p, 1.5_dp), 5.5625_dp, tolerance=tol) @@ -51,4 +50,4 @@ module test_mo_polynomial end subroutine test_polynomial -end module test_mo_polynomial \ No newline at end of file +end module test_mo_polynomial