Skip to content

Commit cee1bac

Browse files
committed
logger2: add support of new_line() when writting message
1 parent cb88331 commit cee1bac

File tree

1 file changed

+15
-0
lines changed

1 file changed

+15
-0
lines changed

src/tests/logger/test_stdlib_logger.f90

Lines changed: 15 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -191,6 +191,13 @@ subroutine test_logging_configuration()
191191
module = 'N/A', &
192192
procedure = 'TEST_STDLIB_LOGGER' )
193193

194+
call global % log_message( 'The last word of the first line ' // &
195+
new_line('a')//'should be "line". "Line"' // new_line('a') // &
196+
'is also the last word for the second line. The following ' // &
197+
'lines should be limited to 72 columns width.' , &
198+
module = 'N/A', &
199+
procedure = 'TEST_STDLIB_LOGGER' )
200+
194201
call global % configure( add_blank_line=.false., indent=.true., &
195202
max_width=72, time_stamp=.true. )
196203

@@ -202,6 +209,14 @@ subroutine test_logging_configuration()
202209
module = 'N/A', &
203210
procedure = 'TEST_STDLIB_LOGGER' )
204211

212+
call global % log_message( 'The last word of the first line ' // &
213+
new_line('a')//'should be "the". "Line"' // new_line('a') // &
214+
'should be the last word for the second line. The following ' // &
215+
'lines should be limited to 72 columns width. From the second ' //&
216+
'line, all lines should be indented by 4 columns.' ,&
217+
module = 'N/A', &
218+
procedure = 'TEST_STDLIB_LOGGER' )
219+
205220
end subroutine test_logging_configuration
206221

207222

0 commit comments

Comments
 (0)