tests/cxa/cxa4033.a

136                          To_Unbounded_Wide_String(New_Character_String);
139                          To_Unbounded_Wide_String(TC_New_Character_String);
154       if Index(To_Unbounded_Wide_String("AAABBBaaabbb"),
157          Index(To_Unbounded_Wide_String("Case of a Mixed Case String"),
167       if Count(Source  => To_Unbounded_Wide_String("ABABABA"),
177       if Translate(To_Unbounded_Wide_String("A Sample Mixed Case String"),
179          To_Unbounded_Wide_String("a sample mixed case string")      or
191                  To_Unbounded_Wide_String("AN ALL UPPER CASE STRING");
194          if Str /= To_Unbounded_Wide_String("an all upper case string") then
204       -- Function To_Unbounded_Wide_String (version with Length parameter)
205       if Length(To_Unbounded_Wide_String(Length => 10)) /= 10 or
206          Length(To_Unbounded_Wide_String(0))            /=  0 or
207          Length( To_Unbounded_Wide_String(10) &
208                  To_Unbounded_Wide_String(1) &
209                  To_Unbounded_Wide_String(0) ) /= 10 + 1 + 0
212            ("Incorrect results from Function To_Unbounded_Wide_String " &
218       Append(TC_Unb_String, To_Unbounded_Wide_String("New Unbounded String"));
219       if TC_Unb_String /= To_Unbounded_Wide_String("New Unbounded String")
227       TC_Unb_String := To_Unbounded_Wide_String("An Unbounded String and ");
230          To_Unbounded_Wide_String("An Unbounded String and A Standard String")
238       TC_Unb_String := To_Unbounded_Wide_String("Lower Case = ");
243          Unb.To_Unbounded_Wide_String
252       TC_Unb_String := To_Unbounded_Wide_String(TC_String);
256               ("Test String" = To_Unbounded_Wide_String("Test String")))
263       if not ("Extra Space" < To_Unbounded_Wide_String("Extra Space ") and
264               To_Unbounded_Wide_String("tess") < "test"                and
265               To_Unbounded_Wide_String("best") < "test")
272       TC_Unb_String := To_Unbounded_Wide_String("Sample string");
281       TC_Unb_String := To_Unbounded_Wide_String("A MUCH LONGER STRING");
283               To_Unbounded_Wide_String(TC_String) > "A Standard Strin" and
284               "abcdefgh" > To_Unbounded_Wide_String("ABCDEFGH"))
291       TC_Unb_String := To_Unbounded_Wide_String(TC_String);
293               "test"        >= To_Unbounded_Wide_String("tess") and
294               To_Unbounded_Wide_String("Programming") >= "PROGRAMMING")
301       TC_Unb_String := To_Unbounded_Wide_String("Test String");
303       if TC_Unb_String /= To_Unbounded_Wide_String("TestABCDEString") then
308       if TC_Unb_String /= To_Unbounded_Wide_String("ABCDEABCDEString") then
313       TC_Unb_String := To_Unbounded_Wide_String("Test String");
315       if TC_Unb_String /= To_Unbounded_Wide_String("**Test String") then
320       if TC_Unb_String /= To_Unbounded_Wide_String("**Test String**") then
325       TC_Unb_String := To_Unbounded_Wide_String("Test String");
327       if TC_Unb_String /= To_Unbounded_Wide_String("XXXX String") then
332       if TC_Unb_String /= To_Unbounded_Wide_String("XXXX String**") then
337       TC_Unb_String := To_Unbounded_Wide_String("Test String");
339       if TC_Unb_String /= To_Unbounded_Wide_String("Test String") then
344       if TC_Unb_String /= To_Unbounded_Wide_String("String") then
349       TC_Unb_String := To_Unbounded_Wide_String("   Leading Spaces   ");
351       if TC_Unb_String /= To_Unbounded_Wide_String("Leading Spaces   ") then
356         To_Unbounded_Wide_String("    Spaces   on  both  ends     ");
359          To_Unbounded_Wide_String("Spaces   on  both  ends")
365       TC_Unb_String := To_Unbounded_Wide_String("012abcdefghGFEDCBA789ab");
369       if TC_Unb_String /= To_Unbounded_Wide_String("ghG") then
374       TC_Unb_String := To_Unbounded_Wide_String("Test String");
380       TC_Unb_String := To_Unbounded_Wide_String("Test String");
382       if TC_Unb_String /= To_Unbounded_Wide_String("Test") then
387       TC_Unb_String := To_Unbounded_Wide_String("Test String");
393       TC_Unb_String := To_Unbounded_Wide_String("Test String");
395       if TC_Unb_String /= To_Unbounded_Wide_String("xxxxxTest String") then