mirror of
https://github.com/AdaCore/VSS.git
synced 2026-02-12 13:06:25 -08:00
84 lines
2.1 KiB
Ada
84 lines
2.1 KiB
Ada
--
|
|
-- Copyright (C) 2022, AdaCore
|
|
--
|
|
-- SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
--
|
|
|
|
with VSS.String_Vectors;
|
|
with VSS.Strings;
|
|
|
|
with Test_Support;
|
|
|
|
procedure Test_String_Split is
|
|
use type VSS.Strings.Virtual_String;
|
|
|
|
begin
|
|
-- Common use case
|
|
|
|
declare
|
|
S : constant VSS.Strings.Virtual_String := "A:BC:DEF:GHIJ";
|
|
V : constant VSS.String_Vectors.Virtual_String_Vector := S.Split (':');
|
|
|
|
begin
|
|
Test_Support.Assert (V.Length = 4);
|
|
Test_Support.Assert (V (1) = "A");
|
|
Test_Support.Assert (V (2) = "BC");
|
|
Test_Support.Assert (V (3) = "DEF");
|
|
Test_Support.Assert (V (4) = "GHIJ");
|
|
end;
|
|
|
|
-- Keep empty segments
|
|
|
|
declare
|
|
S : constant VSS.Strings.Virtual_String := ":A:BC::DEF:GHIJ:";
|
|
V : constant VSS.String_Vectors.Virtual_String_Vector := S.Split (':');
|
|
|
|
begin
|
|
Test_Support.Assert (V.Length = 7);
|
|
Test_Support.Assert (V (1).Is_Empty);
|
|
Test_Support.Assert (V (2) = "A");
|
|
Test_Support.Assert (V (3) = "BC");
|
|
Test_Support.Assert (V (4).Is_Empty);
|
|
Test_Support.Assert (V (5) = "DEF");
|
|
Test_Support.Assert (V (6) = "GHIJ");
|
|
Test_Support.Assert (V (7).Is_Empty);
|
|
end;
|
|
|
|
-- Drop empty segments
|
|
|
|
declare
|
|
S : constant VSS.Strings.Virtual_String := ":A:BC::DEF:GHIJ:";
|
|
V : constant VSS.String_Vectors.Virtual_String_Vector :=
|
|
S.Split (':', False);
|
|
|
|
begin
|
|
Test_Support.Assert (V.Length = 4);
|
|
Test_Support.Assert (V (1) = "A");
|
|
Test_Support.Assert (V (2) = "BC");
|
|
Test_Support.Assert (V (3) = "DEF");
|
|
Test_Support.Assert (V (4) = "GHIJ");
|
|
end;
|
|
|
|
-- Empty string
|
|
|
|
declare
|
|
S : constant VSS.Strings.Virtual_String := "";
|
|
V : constant VSS.String_Vectors.Virtual_String_Vector := S.Split (':');
|
|
|
|
begin
|
|
Test_Support.Assert (V.Length = 1);
|
|
Test_Support.Assert (V (1).Is_Empty);
|
|
end;
|
|
|
|
-- Single string
|
|
|
|
declare
|
|
S : constant VSS.Strings.Virtual_String := "ABCD";
|
|
V : constant VSS.String_Vectors.Virtual_String_Vector := S.Split (':');
|
|
|
|
begin
|
|
Test_Support.Assert (V.Length = 1);
|
|
Test_Support.Assert (V (1) = "ABCD");
|
|
end;
|
|
end Test_String_Split;
|