-- CXA4029.A -- -- Grant of Unlimited Rights -- -- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, -- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained -- unlimited rights in the software and documentation contained herein. -- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making -- this public release, the Government intends to confer upon all -- recipients unlimited rights equal to those held by the Government. -- These rights include rights to use, duplicate, release or disclose the -- released technical data and computer software in whole or in part, in -- any manner and for any purpose whatsoever, and to have or permit others -- to do so. -- -- DISCLAIMER -- -- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR -- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED -- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE -- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE -- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A -- PARTICULAR PURPOSE OF SAID MATERIAL. --* -- -- OBJECTIVE: -- Check that the functionality found in packages Ada.Strings.Wide_Maps, -- Ada.Strings.Wide_Bounded, and Ada.Strings.Wide_Maps.Wide_Constants -- is available and produces correct results. -- -- TEST DESCRIPTION: -- This test tests the subprograms found in the -- Ada.Strings.Wide_Bounded package. It is based on the tests -- CXA4027-28, which are tests for the complementary "non-wide" -- packages. -- -- The functions found in CXA4029_0 provide mapping capability, when -- used in conjunction with Wide_Character_Mapping_Function objects. -- -- -- CHANGE HISTORY: -- 23 Jun 95 SAIC Initial prerelease version. -- 18 Apr 96 SAIC Incorporated reviewer comments for ACVC 2.1. -- --! package CXA4029_0 is -- Functions used to supply mapping capability. function Map_To_Lower_Case (From : Wide_Character) return Wide_Character; function Map_To_Upper_Case (From : Wide_Character) return Wide_Character; end CXA4029_0; with Ada.Characters.Handling; package body CXA4029_0 is -- Function Map_To_Lower_Case will return the lower case form of -- Wide_Characters in the range 'A'..'Z' only, and return the input -- wide_character otherwise. function Map_To_Lower_Case (From : Wide_Character) return Wide_Character is begin return Ada.Characters.Handling.To_Wide_Character( Ada.Characters.Handling.To_Lower( Ada.Characters.Handling.To_Character(From))); end Map_To_Lower_Case; -- Function Map_To_Upper_Case will return the upper case form of -- Wide_Characters in the range 'a'..'z', or whose position is in one -- of the ranges 223..246 or 248..255, provided the wide_character has -- an upper case form. function Map_To_Upper_Case (From : Wide_Character) return Wide_Character is begin return Ada.Characters.Handling.To_Wide_Character( Ada.Characters.Handling.To_Upper( Ada.Characters.Handling.To_Character(From))); end Map_To_Upper_Case; end CXA4029_0; with CXA4029_0; with Report; with Ada.Characters.Handling; with Ada.Characters.Latin_1; with Ada.Strings; with Ada.Strings.Wide_Maps; with Ada.Strings.Wide_Maps.Wide_Constants; with Ada.Strings.Wide_Fixed; with Ada.Strings.Wide_Bounded; procedure CXA4029 is begin Report.Test ("CXA4029", "Check that subprograms defined in package " & "Ada.Strings.Wide_Bounded produce correct results"); Test_Block: declare package ACL1 renames Ada.Characters.Latin_1; package BS1 is new Ada.Strings.Wide_Bounded.Generic_Bounded_Length(1); package BS20 is new Ada.Strings.Wide_Bounded.Generic_Bounded_Length(20); package BS40 is new Ada.Strings.Wide_Bounded.Generic_Bounded_Length(40); package BS80 is new Ada.Strings.Wide_Bounded.Generic_Bounded_Length(80); subtype LC_Characters is Wide_Character range 'a'..'z'; use Ada.Characters, Ada.Strings; use type Wide_Maps.Wide_Character_Set; use type BS1.Bounded_Wide_String, BS20.Bounded_Wide_String, BS40.Bounded_Wide_String, BS80.Bounded_Wide_String; TC_String : constant Wide_String := "A Standard String"; BString_1 : BS1.Bounded_Wide_String := BS1.Null_Bounded_Wide_String; BString_20 : BS20.Bounded_Wide_String := BS20.Null_Bounded_Wide_String; BString_40 : BS40.Bounded_Wide_String := BS40.Null_Bounded_Wide_String; BString_80 : BS80.Bounded_Wide_String := BS80.Null_Bounded_Wide_String; String_20 : Wide_String(1..20) := "ABCDEFGHIJKLMNOPQRST"; String_40 : Wide_String(1..40) := "abcdefghijklmnopqrst" & String_20; String_80 : Wide_String(1..80) := String_40 & String_40; TC_String_5 : Wide_String(1..5) := "ABCDE"; -- The following strings are used in examination of the Translation -- subprograms. New_Character_String : Wide_String(1..10) := Handling.To_Wide_String( ACL1.LC_A_Grave & ACL1.LC_A_Ring & ACL1.LC_AE_Diphthong & ACL1.LC_C_Cedilla & ACL1.LC_E_Acute & ACL1.LC_I_Circumflex & ACL1.LC_Icelandic_Eth & ACL1.LC_N_Tilde & ACL1.LC_O_Oblique_Stroke & ACL1.LC_Icelandic_Thorn); TC_New_Character_String : Wide_String(1..10) := Handling.To_Wide_String( ACL1.UC_A_Grave & ACL1.UC_A_Ring & ACL1.UC_AE_Diphthong & ACL1.UC_C_Cedilla & ACL1.UC_E_Acute & ACL1.UC_I_Circumflex & ACL1.UC_Icelandic_Eth & ACL1.UC_N_Tilde & ACL1.UC_O_Oblique_Stroke & ACL1.UC_Icelandic_Thorn); -- Access objects that will be provided as parameters to the -- subprograms. Map_To_Lower_Case_Ptr : Wide_Maps.Wide_Character_Mapping_Function := CXA4029_0.Map_To_Lower_Case'Access; Map_To_Upper_Case_Ptr : Wide_Maps.Wide_Character_Mapping_Function := CXA4029_0.Map_To_Upper_Case'Access; begin -- Testing of functionality found in Package Ada.Strings.Wide_Bounded. -- -- Function Index. if BS80.Index(BS80.To_Bounded_Wide_String("CoMpLeTeLy MiXeD CaSe"), "MIXED CASE", Ada.Strings.Forward, Map_To_Upper_Case_Ptr) /= 12 or BS1.Index(BS1.Null_Bounded_Wide_String, "i", Mapping => Map_To_Lower_Case_Ptr) /= 0 then Report.Failed("Incorrect results from BND Function Index, going " & "in Forward direction, using a Character Mapping " & "Function parameter"); end if; -- Function Count. if BS40.Count(BS40.To_Bounded_Wide_String("This IS a MISmatched issue"), "is", Map_To_Lower_Case_Ptr) /= 4 or BS80.Count(BS80.To_Bounded_Wide_String("ABABABA"), "ABA", Map_To_Upper_Case_Ptr) /= 2 then Report.Failed("Incorrect results from BND Function Count, using " & "a Character_Mapping_Function parameter"); end if; -- Function Translate. if BS40.Translate(BS40.To_Bounded_Wide_String("A Mixed Case String"), Mapping => Map_To_Lower_Case_Ptr) /= BS40.To_Bounded_Wide_String("a mixed case string") or BS20."/="("end with lower case", BS20.Translate( BS20.To_Bounded_Wide_String("end with lower case"), Map_To_Lower_Case_Ptr)) then Report.Failed("Incorrect results from BND Function Translate, " & "using a Character_Mapping_Function parameter"); end if; -- Procedure Translate. BString_20 := BS20.To_Bounded_Wide_String(String_20); BS20.Translate(BString_20, Mapping => Map_To_Lower_Case_Ptr); if BString_20 /= BS20.To_Bounded_Wide_String("abcdefghijklmnopqrst") then Report.Failed("Incorrect result from BND Procedure Translate - 1"); end if; BString_80 := BS80.Null_Bounded_Wide_String; BS80.Translate(BString_80, Map_To_Upper_Case_Ptr); if not (BString_80 = BS80.Null_Bounded_Wide_String) then Report.Failed("Incorrect result from BND Procedure Translate - 2"); end if; -- Procedure Append. declare use BS20; begin BString_20 := BS20.Null_Bounded_Wide_String; Append(BString_20, 'T'); Append(BString_20, "his string"); Append(BString_20, To_Bounded_Wide_String(" is complete."), Drop => Ada.Strings.Right); -- Drop 4 characters. if BString_20 /= To_Bounded_Wide_String("This string is compl") then Report.Failed("Incorrect results from BS20 versions of " & "procedure Append"); end if; exception when others => Report.Failed("Exception raised in block checking " & "BND Procedure Append"); end; -- Operator "=". BString_40 := BS40.To_Bounded_Wide_String(String_40); BString_80 := BS80.To_Bounded_Wide_String( BS40.To_Wide_String(BString_40) & BS40.To_Wide_String(BString_40)); if not (BString_40 = String_40 and BS80."="(String_80, BString_80)) then Report.Failed("Incorrect results from BND Function ""="" with " & "string - bounded string parameter combinations"); end if; -- Operator "<". BString_1 := BS1.To_Bounded_Wide_String("cat", Drop => Ada.Strings.Right); BString_20 := BS20.To_Bounded_Wide_String("Santa Claus"); if BString_1 < "C" or BS1."<"(BString_1,"c") or BS1."<"("x", BString_1) or BS20."<"(BString_20,"Santa ") or BS20."<"("Santa and his Elves", BString_20) then Report.Failed("Incorrect results from BND Function ""<"" with " & "string - bounded string parameter combinations"); end if; -- Operator "<=". BString_20 := BS20.To_Bounded_Wide_String("Sample string"); if BS20."<="(BString_20,"Sample strin") or not(BS20."<="("Sample string",BString_20)) then Report.Failed("Incorrect results from BND Function ""<="" with " & "string - bounded string parameter combinations"); end if; -- Operator ">". BString_40 := BS40.To_Bounded_Wide_String( "A MUCH LONGER SAMPLE STRING."); if BString_40 > "A much longer sample string" or BS40.To_Bounded_Wide_String("ABCDEFGH") > "abcdefgh" then Report.Failed("Incorrect results from BND Function "">"" with " & "string - bounded string parameter combinations"); end if; -- Operator ">=". BString_80 := BS80.To_Bounded_Wide_String(String_80); if not (BString_80 >= String_80 and BS80.To_Bounded_Wide_String("Programming") >= "PROGRAMMING" and BS80.">="("test", BS80.To_Bounded_Wide_String("tess"))) then Report.Failed("Incorrect results from BND Function "">="" with " & "string - bounded string parameter combinations"); end if; -- Procedure Trim BString_20 := BS20.To_Bounded_Wide_String(" Both Sides "); BS20.Trim(BString_20, Ada.Strings.Both); if BString_20 /= BS20.To_Bounded_Wide_String("Both Sides") then Report.Failed("Incorrect results from BND Procedure Trim with " & "Side = Both"); end if; -- Procedure Head BString_40 := BS40.To_Bounded_Wide_String("Test String"); BS40.Head(Source => BString_40, Count => 4); -- Count < Source'Length if BString_40 /= BS40.To_Bounded_Wide_String("Test") then Report.Failed("Incorrect results from BND Procedure Head with " & "the Count parameter less than Source'Length"); end if; BString_20 := BS20.To_Bounded_Wide_String("Short String"); BS20.Head(BString_20, 23, '-', Ada.Strings.Right); if BS20.To_Bounded_Wide_String("Short String--------") /= BString_20 then Report.Failed("Incorrect results from BND Procedure Head with " & "the Count parameter greater than Source'Length, " & "and the Drop parameter = Right"); end if; -- Procedure Tail BString_40 := BS40.To_Bounded_Wide_String("Test String"); BS40.Tail(Source => BString_40, Count => 6); if BString_40 /= BS40.To_Bounded_Wide_String("String") then Report.Failed("Incorrect results from BND Procedure Tail with " & "the Count parameter less than Source'Length"); end if; BString_20 := BS20.To_Bounded_Wide_String("Maximum Length Chars"); BS20.Tail(BString_20, 23, '-', Ada.Strings.Right); if BS20.To_Bounded_Wide_String("---Maximum Length Ch") /= BString_20 then Report.Failed("Incorrect results from BND Procedure Tail with " & "the Count parameter greater than Source'Length, " & "and the Drop parameter = Right"); end if; exception when others => Report.Failed ("Exception raised in Test_Block"); end Test_Block; Report.Result; end CXA4029;