Lines Matching refs:Pic_String
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 " &