test_capitalize Subroutine

public subroutine test_capitalize()

Arguments

None

Calls

proc~~test_capitalize~~CallsGraph proc~test_capitalize test_capitalize assert_that assert_that proc~test_capitalize->assert_that none~capitalize String%capitalize proc~test_capitalize->none~capitalize true true proc~test_capitalize->true none~lower~4 String%lower none~capitalize->none~lower~4

Source Code

   subroutine test_capitalize()
      type(String) :: s

      s = 'aAbBcC'
      @assert_that(s%capitalize() == 'Aabbcc', is(true()))
      
   end subroutine test_capitalize