CVS difference for acats/cc/cc30003.a
--- acats/cc/cc30003.a 2014/01/21 05:56:35 1.1
+++ acats/cc/cc30003.a 2015/03/14 04:19:00 1.2
@@ -69,6 +69,7 @@
-- CHANGE HISTORY:
-- 28 Aug 2008 RLB Created test for RRS.
-- 29 Aug 2008 RLB Converted test to ACATS test.
+-- 13 Mar 2015 RLB Eliminated overlong lines and tab characters.
--
generic
type Base_Type is tagged private;
@@ -227,7 +228,8 @@
package Counted_Rectangle_Inst is new CC30003_0 (CC30003_1.Rectangle);
- type Counted_Square is new Counted_Rectangle_Inst.Counted_Type with null record;
+ type Counted_Square is new Counted_Rectangle_Inst.Counted_Type
+ with null record;
procedure Make_Square (S : in out Counted_Square; Side : in Float);
@@ -339,7 +341,8 @@
if Area (RT) /= 0.0 then
Report.Failed ("Wrong area (RTC)");
end if;
- TcTouch.Validate ("tatcta", "Unexpected calls in right triangle calculations");
+ TcTouch.Validate ("tatcta", "Unexpected calls in right triangle " &
+ "calculations");
Clear (T); -- Note: Original Clear overridden by generic one.
Bump (T);
@@ -364,7 +367,8 @@
Report.Failed ("Wrong count (T2)");
end if;
- TcTouch.Validate ("DBBDsbBsbBcc", "Unexpected calls in dynamic count calculations");
+ TcTouch.Validate ("DBBDsbBsbBcc", "Unexpected calls in dynamic count " &
+ "calculations");
end;
-- Dynamically bound calls here:
@@ -393,16 +397,20 @@
Bump (Counted_Rectangle_Inst.Counted_Type'Class(List(4).all));
Bump (Counted_Rectangle_Inst.Counted_Type'Class(List(4).all));
Bump (Counted_Rectangle_Inst.Counted_Type'Class(List(4).all));
- if Count (Counted_Rectangle_Inst.Counted_Type'Class(List(2).all)) /= 1 then
+ if Count (Counted_Rectangle_Inst.Counted_Type'Class(List(2).all))
+ /= 1 then
Report.Failed ("Wrong count (L2)");
end if;
- if Count (Counted_Triangle_Inst.Counted_Type'Class(List(3).all)) /= 2 then
+ if Count (Counted_Triangle_Inst.Counted_Type'Class(List(3).all))
+ /= 2 then
Report.Failed ("Wrong count (L3)");
end if;
- if Count (Counted_Rectangle_Inst.Counted_Type'Class(List(4).all)) /= 3 then
+ if Count (Counted_Rectangle_Inst.Counted_Type'Class(List(4).all))
+ /= 3 then
Report.Failed ("Wrong count (L4)");
end if;
- TcTouch.Validate ("sbBBBBBBccc", "Unexpected calls dispatching count calculations");
+ TcTouch.Validate ("sbBBBBBBccc", "Unexpected calls dispatching count " &
+ "calculations");
if Total_Area (List) /= (6.0+9.0+6.0+5.0) then
Report.Failed ("Wrong total area");
Questions? Ask the ACAA Technical Agent