Skip to content

Commit

Permalink
Remove assertEqual with uninitialized variable
Browse files Browse the repository at this point in the history
  • Loading branch information
danlueck committed Sep 7, 2023
1 parent c7d90b2 commit f62467c
Showing 1 changed file with 1 addition and 4 deletions.
5 changes: 1 addition & 4 deletions pFUnittests/test_slamastroconv.pf
Original file line number Diff line number Diff line change
Expand Up @@ -85,9 +85,8 @@ module test_slamastroconv
type(kepler_t) :: kep
type(time_t) :: epoch, expected_epoch
integer :: otype
real(dp) :: expected_semipar, expected_sma, expected_ecc, expected_inc, expected_raan
real(dp) :: expected_sma, expected_ecc, expected_inc, expected_raan
real(dp) :: expected_aop, expected_tran, expected_man, expected_arglat, expected_truelon, expected_lonper
real(dp) :: semipar
! Initialize the input state
car%R = (/-3485.799126707284_dp, -5898.652976745232_dp, 835.9701786284777_dp/)
car%V = (/-1.3525457950562447_dp, -0.2804534841971075_dp, -7.4721873681232385_dp/)
Expand All @@ -103,7 +102,6 @@ module test_slamastroconv
call rv2coe_short(car, kep, otype)

! Define the expected values
expected_semipar = 0
expected_sma = 6901.7162837732567_dp
expected_ecc = 0.23374487008203386E-2_dp
expected_inc = 1.7046673456441539_dp
Expand All @@ -122,7 +120,6 @@ module test_slamastroconv
expected_epoch%second = 47_dp

! Check if the computed values match the expected values
@assertEqual(semipar, expected_semipar)
@assertRelativelyEqual(kep%sma, expected_sma, tolerance=1.0e-5_dp)
@assertRelativelyEqual(kep%ecc, expected_ecc, tolerance=1.0e-5_dp)
@assertRelativelyEqual(kep%inc, expected_inc, tolerance=1.0e-5_dp)
Expand Down

0 comments on commit f62467c

Please sign in to comment.