1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
------------------------------------------------------------------------------
-- G P S --
-- --
-- Copyright (C) 2010-2013, AdaCore --
-- --
-- This is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. This software is distributed in the hope that it will be useful, --
-- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- --
-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public --
-- License for more details. You should have received a copy of the GNU --
-- General Public License distributed with this software; see file --
-- COPYING3. If not, go to http://www.gnu.org/licenses for a complete copy --
-- of the license. --
------------------------------------------------------------------------------
with GNATCOLL.Utils; use GNATCOLL.Utils;
procedure Test_Strings is
File_1 : constant String :=
ASCII.HT & "ABC";
File_2 : constant String :=
" " & ASCII.HT & "ABC";
File_3 : constant String :=
ASCII.HT & ASCII.HT & "ABC";
procedure Test_Skip_To_Column
(File : String;
Column : Integer;
Start_Line : Integer;
Expected_Index : Integer);
procedure Test_Skip_To_Column
(File : String;
Column : Integer;
Start_Line : Integer;
Expected_Index : Integer)
is
Index : Integer := Start_Line;
begin
Skip_To_Column
(Str => File,
Columns => Column,
Index => Index);
pragma Assert
(Index = Expected_Index,
"INDEX =" & Index'Img & " INSTEAD OF" & Expected_Index'Img);
end Test_Skip_To_Column;
begin
-- Tests on File_1
Test_Skip_To_Column
(File_1,
Column => 1,
Start_Line => 1,
Expected_Index => 1);
Test_Skip_To_Column
(File_1,
Column => 9,
Start_Line => 1,
Expected_Index => 2);
-- Tests on File_2
Test_Skip_To_Column
(File_2,
Column => 1,
Start_Line => 1,
Expected_Index => 1);
Test_Skip_To_Column
(File_2,
Column => 9,
Start_Line => 1,
Expected_Index => 3);
-- Tests on File_3
Test_Skip_To_Column
(File_3,
Column => 9,
Start_Line => 1,
Expected_Index => 2);
Test_Skip_To_Column
(File_3,
Column => 17,
Start_Line => 1,
Expected_Index => 3);
end Test_Strings;
|
