|
5 | 5 | with Basic_Assertions; use Basic_Assertions; |
6 | 6 | with Packed_F32x3; |
7 | 7 | with Packed_F32x3.Assertion; use Packed_F32x3.Assertion; |
| 8 | +with Packed_F64x3.Assertion; use Packed_F64x3.Assertion; |
8 | 9 | with Nav_Att; |
9 | 10 | with Nav_Trans; |
10 | 11 |
|
@@ -128,9 +129,9 @@ package body Nav_Aggregate_Tests.Implementation is |
128 | 129 | -- Time tag from message 1 |
129 | 130 | pragma Assert (abs (Output.Time_Tag - 22.2) < 0.01); |
130 | 131 | -- Position from message 1 |
131 | | - Packed_F32x3_Assert.Eq (Output.R_Bn_N, [2000.0, 200.0, -2000.0], Epsilon => 0.1); |
| 132 | + Packed_F64x3_Assert.Eq (Output.R_Bn_N, [2000.0, 200.0, -2000.0], Epsilon => 0.1); |
132 | 133 | -- Velocity from message 1 |
133 | | - Packed_F32x3_Assert.Eq (Output.V_Bn_N, [2.0, 2.0, -2.0], Epsilon => 0.0001); |
| 134 | + Packed_F64x3_Assert.Eq (Output.V_Bn_N, [2.0, 2.0, -2.0], Epsilon => 0.0001); |
134 | 135 | -- Accumulated DV from message 1 |
135 | 136 | Packed_F32x3_Assert.Eq (Output.Vehaccumdv, [-20.2, 20.2, 20.2], Epsilon => 0.1); |
136 | 137 | end; |
@@ -191,9 +192,9 @@ package body Nav_Aggregate_Tests.Implementation is |
191 | 192 | -- Time tag from message 0 |
192 | 193 | pragma Assert (abs (Output.Time_Tag - 11.1) < 0.01); |
193 | 194 | -- Position from message 0 |
194 | | - Packed_F32x3_Assert.Eq (Output.R_Bn_N, [1000.0, 100.0, -1000.0], Epsilon => 0.1); |
| 195 | + Packed_F64x3_Assert.Eq (Output.R_Bn_N, [1000.0, 100.0, -1000.0], Epsilon => 0.1); |
195 | 196 | -- Velocity from message 0 |
196 | | - Packed_F32x3_Assert.Eq (Output.V_Bn_N, [1.0, 1.0, -1.0], Epsilon => 0.0001); |
| 197 | + Packed_F64x3_Assert.Eq (Output.V_Bn_N, [1.0, 1.0, -1.0], Epsilon => 0.0001); |
197 | 198 | -- Accumulated DV from message 0 |
198 | 199 | Packed_F32x3_Assert.Eq (Output.Vehaccumdv, [-10.1, 10.1, 10.1], Epsilon => 0.1); |
199 | 200 | end; |
@@ -244,7 +245,7 @@ package body Nav_Aggregate_Tests.Implementation is |
244 | 245 | Output : constant Nav_Trans.T := T.Aggregated_Nav_Trans_History.Get (3); |
245 | 246 | begin |
246 | 247 | pragma Assert (abs (Output.Time_Tag - 11.1) < 0.01); |
247 | | - Packed_F32x3_Assert.Eq (Output.R_Bn_N, [1000.0, 100.0, -1000.0], Epsilon => 0.1); |
| 248 | + Packed_F64x3_Assert.Eq (Output.R_Bn_N, [1000.0, 100.0, -1000.0], Epsilon => 0.1); |
248 | 249 | end; |
249 | 250 |
|
250 | 251 | -- Destroy before next test |
@@ -296,8 +297,8 @@ package body Nav_Aggregate_Tests.Implementation is |
296 | 297 | Output : constant Nav_Trans.T := T.Aggregated_Nav_Trans_History.Get (4); |
297 | 298 | begin |
298 | 299 | pragma Assert (abs (Output.Time_Tag - 22.2) < 0.01); |
299 | | - Packed_F32x3_Assert.Eq (Output.R_Bn_N, [2000.0, 200.0, -2000.0], Epsilon => 0.1); |
300 | | - Packed_F32x3_Assert.Eq (Output.V_Bn_N, [2.0, 2.0, -2.0], Epsilon => 0.0001); |
| 300 | + Packed_F64x3_Assert.Eq (Output.R_Bn_N, [2000.0, 200.0, -2000.0], Epsilon => 0.1); |
| 301 | + Packed_F64x3_Assert.Eq (Output.V_Bn_N, [2.0, 2.0, -2.0], Epsilon => 0.0001); |
301 | 302 | Packed_F32x3_Assert.Eq (Output.Vehaccumdv, [-20.2, 20.2, 20.2], Epsilon => 0.1); |
302 | 303 | end; |
303 | 304 |
|
|
0 commit comments