Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

fixed bug in stringlist #552

Draft
wants to merge 7 commits into
base: master
Choose a base branch
from
Draft

fixed bug in stringlist #552

Changes from 1 commit
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
933a367
resolved inserting 0 lengthed slist in list bug
aman-godara Oct 10, 2021
ea46f19
changed name
aman-godara Oct 10, 2021
875def4
added test cases for inserting a list in itself
aman-godara Oct 15, 2021
a9a6288
added length check
aman-godara Oct 17, 2021
0bd66e1
a temp commit to test
aman-godara Nov 21, 2021
d946a35
again a temp commit
aman-godara Nov 21, 2021
bb30a55
another temp commit
aman-godara Nov 21, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
added length check
  • Loading branch information
@aman-godara
aman-godara committed Oct 17, 2021
commit a9a62881e13da791f54ce96e569022123018ac1f
34 changes: 18 additions & 16 deletions src/tests/stringlist/test_insert_at.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
! SPDX-Identifier: MIT
module test_insert_at
use stdlib_error, only: check
use stdlib_string_type, only: string_type, operator(//), operator(==)
use stdlib_string_type, only: string_type, operator(//), operator(==), char
use stdlib_stringlist_type, only: stringlist_type, fidx, bidx, list_head, list_tail, operator(==)
use stdlib_strings, only: to_string
use stdlib_optval, only: optval
Expand Down Expand Up @@ -355,29 +355,29 @@ end subroutine test_constructor
subroutine test_insert_at_same_list
type(stringlist_type) :: work_list
type(stringlist_type) :: temp_list
integer :: i, j
integer :: i
integer, parameter :: first = -100
integer, parameter :: last = 100
integer, parameter :: stride = 4

write (*,*) "test_insert_at_same_list: Starting work_list!"

call work_list%insert_at( list_head, work_list )
call work_list%insert_at( list_tail, work_list )

do j = -10, 10
call work_list%insert_at( fidx(j), work_list )
call work_list%insert_at( bidx(j), work_list )
do i = -10, 10
call work_list%insert_at( fidx(i), work_list )
call work_list%insert_at( bidx(i), work_list )

end do

call compare_list( work_list, 0, 0, 13 )
call check( work_list%len() == 0, "test_insert_at_same_list: empty list insertion")

do j = first, last
call work_list%insert_at( list_tail, string_type( to_string(j) ) )
do i = first, last
call work_list%insert_at( list_tail, string_type( to_string(i) ) )
end do

temp_list = work_list

call work_list%insert_at( list_head, work_list )
call compare_list( work_list, first, last + 1, 14, to=last - first + 1 )
call compare_list( work_list, first, last + 1, 15, from=last - first + 2 )
Expand All @@ -390,13 +390,15 @@ subroutine test_insert_at_same_list
work_list = temp_list
call compare_list( work_list, first, last + 1, 18 )

do j = 1, last - first + 2
write (*,*) "test_insert_at_same_list: Starting temp_list!"

do i = 1, last - first + 2
temp_list = work_list
call temp_list%insert_at( fidx(j), temp_list )
call temp_list%insert_at( fidx(i), temp_list )

call compare_list( temp_list, first, first + j - 1, 19, to=j - 1)
call compare_list( temp_list, first, last + 1, 20, from=j, to=j + last - first)
call compare_list( temp_list, first + j - 1, last + 1, 21, from=j + last - first + 1)
call compare_list( temp_list, first, first + i - 1, 19, to=i - 1 )
call compare_list( temp_list, first, last + 1, 20, from=i, to=i + last - first )
call compare_list( temp_list, first + i - 1, last + 1, 21, from=i + last - first + 1 )

end do

Expand All @@ -421,13 +423,13 @@ subroutine compare_list(list, first, last, call_number, from, to)
do i = work_from, work_to
call check( list%get( fidx(i) ) == to_string( first + ( ( i - work_from ) * j ) ), &
& "compare_list: call_number " // to_string( call_number ) &
& // " fidx( " // to_string( i ) // " )")
& // " fidx( " // to_string( i ) // " )" )

k = length - ( work_to - ( i - work_from ) ) + 1
call check( list%get( bidx(k) ) == &
& to_string( last - ( ( i - work_from + 1 ) * j ) ), &
& "compare_list: call_number " // to_string( call_number ) &
& // " bidx( " // to_string( k ) // " )")
& // " bidx( " // to_string( k ) // " )" )
end do

end subroutine compare_list
Expand Down