Skip to content

Commit 948d064

Browse files
aman-godaraaman-godara
committed
made to_current_idxn as private
1 parent 3777c04 commit 948d064

File tree

2 files changed

+1
-27
lines changed

2 files changed

+1
-27
lines changed

‎src/stdlib_stringlist_type.f90‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -62,7 +62,7 @@ module stdlib_stringlist_type
6262

6363
procedure :: to_future_at_idxn => convert_to_future_at_idxn
6464

65-
procedure, public :: to_current_idxn => convert_to_current_idxn
65+
procedure :: to_current_idxn => convert_to_current_idxn
6666

6767
procedure :: insert_at_char_idx => insert_at_char_idx_wrap
6868
procedure :: insert_at_string_idx => insert_at_string_idx_wrap

‎src/tests/stringlist/test_insert_at.f90‎

Lines changed: 0 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -17,8 +17,6 @@ subroutine test_insert_at_string_1
1717

1818
work_list = stringlist_type()
1919
call check( work_list%len() == 0, "test_insert_at_string_1: constructor" )
20-
call check( work_list%to_current_idxn( list_tail ) == 0, "test_insert_at_string_1: list_tail == 0")
21-
call check( work_list%to_current_idxn( list_head ) == 1, "test_insert_at_string_1: list_head == 1")
2220

2321
write (*,*) "test_insert_at_string_1: Starting test case 1!"
2422
current_length = 0
@@ -36,10 +34,6 @@ subroutine test_insert_at_string_1
3634
call check( work_list%get( list_tail ) == to_string(first), "test_insert_at_string_1: get&
3735
& list_tail " // string )
3836

39-
call check( work_list%to_current_idxn( list_head ) == 1, "test_insert_at_string_1:&
40-
& to_current_idxn( list_head ) " // to_string( current_length ) )
41-
call check( work_list%to_current_idxn( list_tail ) == current_length, "test_insert_at_string_1:&
42-
& to_current_idxn( list_tail ) " // to_string( current_length ) )
4337
call check( work_list%len() == current_length, "test_insert_at_string_1: length check "&
4438
& // to_string( current_length ) )
4539

@@ -67,10 +61,6 @@ subroutine test_insert_at_string_1
6761
call check( work_list%get( list_head ) == to_string(first), "test_insert_at_string_1: get&
6862
& list_head " // string )
6963

70-
call check( work_list%to_current_idxn( list_head ) == 1, "test_insert_at_string_1:&
71-
& to_current_idxn( list_head ) " // to_string( current_length ) )
72-
call check( work_list%to_current_idxn( list_tail ) == current_length, "test_insert_at_string_1:&
73-
& to_current_idxn( list_tail ) " // to_string( current_length ) )
7464
call check( work_list%len() == current_length, "test_insert_at_string_1: length check "&
7565
& // to_string( current_length ) )
7666

@@ -109,10 +99,6 @@ subroutine test_insert_at_string_2
10999
call check( work_list%get( list_tail ) == string, "test_insert_at_string_2: get&
110100
& list_tail " // string )
111101

112-
call check( work_list%to_current_idxn( list_head ) == 1, "test_insert_at_string_2:&
113-
& to_current_idxn( list_head ) " // to_string( current_length ) )
114-
call check( work_list%to_current_idxn( list_tail ) == current_length, "test_insert_at_string_2:&
115-
& to_current_idxn( list_tail ) " // to_string( current_length ) )
116102
call check( work_list%len() == current_length, "test_insert_at_string_2: length check "&
117103
& // to_string( current_length ) )
118104

@@ -138,10 +124,6 @@ subroutine test_insert_at_string_2
138124
call check( work_list%get( list_tail ) == to_string(last), "test_insert_at_string_2: get&
139125
& list_tail " // string )
140126

141-
call check( work_list%to_current_idxn( list_head ) == 1, "test_insert_at_string_2:&
142-
& to_current_idxn( list_head ) " // to_string( current_length ) )
143-
call check( work_list%to_current_idxn( list_tail ) == current_length, "test_insert_at_string_2:&
144-
& to_current_idxn( list_tail ) " // to_string( current_length ) )
145127
call check( work_list%len() == current_length, "test_insert_at_string_2: length check "&
146128
& // to_string( current_length ) )
147129

@@ -180,10 +162,6 @@ subroutine test_insert_at_string_3
180162
call check( work_list%get( list_head ) == string, "test_insert_at_string_3: get&
181163
& list_head " // string )
182164

183-
call check( work_list%to_current_idxn( list_head ) == 1, "test_insert_at_string_3:&
184-
& to_current_idxn( list_head ) " // to_string( current_length ) )
185-
call check( work_list%to_current_idxn( list_tail ) == current_length, "test_insert_at_string_3:&
186-
& to_current_idxn( list_tail ) " // to_string( current_length ) )
187165
call check( work_list%len() == current_length, "test_insert_at_string_3: length check "&
188166
& // to_string( current_length ) )
189167

@@ -209,10 +187,6 @@ subroutine test_insert_at_string_3
209187
call check( work_list%get( list_head ) == to_string(last), "test_insert_at_string_3: get&
210188
& list_head " // string )
211189

212-
call check( work_list%to_current_idxn( list_head ) == 1, "test_insert_at_string_3:&
213-
& to_current_idxn( list_head ) " // to_string( current_length ) )
214-
call check( work_list%to_current_idxn( list_tail ) == current_length, "test_insert_at_string_3:&
215-
& to_current_idxn( list_tail ) " // to_string( current_length ) )
216190
call check( work_list%len() == current_length, "test_insert_at_string_3: length check "&
217191
& // to_string( current_length ) )
218192

0 commit comments

Comments
 (0)