blob: 7140674544a0753b3318745c772da28e7c437333 [file] [log] [blame]
-- 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;