Lines Matching refs:Test_Data
320 Test_Data : constant Test_Data_Type := (
348 for I in Test_Data'Range loop
350 Sin_Arg_Err := abs Test_Data (I).Cosine *
351 abs Test_Data (I).Radians / 2.0;
352 Cos_Arg_Err := abs Test_Data (I).Sine *
353 abs Test_Data (I).Radians / 2.0;
355 if Test_Data (I).Sin_Result_Error then
361 if Test_Data (I).Cos_Result_Error then
369 Y := Sin (Test_Data (I).Radians);
370 Check (Y, Test_Data (I).Sine,
373 Y := Cos (Test_Data (I).Radians);
374 Check (Y, Test_Data (I).Cosine,
377 Y := Sin (Test_Data (I).Degrees, 360.0);
378 Check (Y, Test_Data (I).Sine,
381 Y := Cos (Test_Data (I).Degrees, 360.0);
382 Check (Y, Test_Data (I).Cosine,
385 --pwb-math Y := Sin (Test_Data (I).Radians, 2.0*Pi);
386 --pwb-math Check (Y, Test_Data (I).Sine,
389 --pwb-math Y := Cos (Test_Data (I).Radians, 2.0*Pi);
390 --pwb-math Check (Y, Test_Data (I).Cosine,
414 Test_Data : constant Test_Data_Type := (
428 for I in Test_Data'Range loop
429 Y := Sin (Test_Data(I).Degrees, 360.0);
430 if Y /= Test_Data(I).Sine then
432 Real'Image (Test_Data(I).Degrees) &
434 Real'Image (Test_Data(I).Sine) &
436 Real'Image (Y - Test_Data(I).Sine) );
439 Y := Cos (Test_Data(I).Degrees, 360.0);
440 if Y /= Test_Data(I).Cosine then
442 Real'Image (Test_Data(I).Degrees) &
444 Real'Image (Test_Data(I).Cosine) &
446 Real'Image (Y - Test_Data(I).Cosine) );