Orbit Data Messages (CCSDS 502.0-B-3)
pus: rename test_ functions, fix service_type doc (merlint E330/E410)
+3
-4
+3
-4
test/interop/gmat/test.ml
+3
-4
test/interop/gmat/test.ml
···
214
214
let err = Float.sqrt ((dx *. dx) +. (dy *. dy) +. (dz *. dz)) in
215
215
Fmt.pr " Perigee radius: %.1f km, velocity: ~%.1f km/s\n" !min_r
216
216
(vec3_norm svs.(i).vel);
217
-
Fmt.pr " Interpolation error at perigee node: %.9f km (%.3f mm)\n"
218
-
err (err *. 1e6);
217
+
Fmt.pr " Interpolation error at perigee node: %.9f km (%.3f mm)\n" err
218
+
(err *. 1e6);
219
219
if err > 1e-6 then
220
220
Alcotest.failf "interpolation at perigee node off by %.6f km (%.1f m)"
221
221
err (err *. 1000.0)
···
438
438
molniya_near_zero_components;
439
439
Alcotest.test_case "no NaN or inf" `Quick molniya_no_nan_or_inf;
440
440
Alcotest.test_case "vis-viva consistency" `Quick molniya_vis_viva;
441
-
Alcotest.test_case "epoch monotonic" `Quick
442
-
molniya_epoch_monotonic;
441
+
Alcotest.test_case "epoch monotonic" `Quick molniya_epoch_monotonic;
443
442
Alcotest.test_case "interpolation at perigee" `Quick
444
443
molniya_interpolation_perigee;
445
444
] );