tests/cxf/cxf3a02.a

31 --      Check that when Pic_String is applied to To_Picture, the result
41 --      converted back to a picture string value using function Pic_String,
106               Editing.To_Picture(Pic_String      => Valid_Strings(i).all,
129               Editing.To_Picture(Pic_String => FXF3A00.Invalid_Strings(i).all);
145       -- Validate that To_Picture and Pic_String/Blank_When_Zero provide
161             -- using function Pic_String, and compare to the original string.
163             if Editing.Pic_String(Pic => TC_Picture) /=
167                  ("Inverse result incorrect from Editing.Pic_String, " &
192       -- the To_Picture/Pic_String conversion (as shown in previous loop).
200          The_Picture := Editing.To_Picture(Pic_String => The_Picture_String);
204             The_Result : constant String := Editing.Pic_String(The_Picture);
226               Editing.To_Picture(Pic_String      => Valid_Strings(i).all,
230             -- using function Pic_String, and compare to the original string.
232             if Editing.Pic_String(Pic => TC_Picture) /=
236                  ("Inverse result incorrect from Editing.Pic_String, used "   &