test_upper Subroutine

public subroutine test_upper()

Arguments

None

Calls

proc~~test_upper~~CallsGraph proc~test_upper Test_String::test_upper assert_that assert_that proc~test_upper->assert_that none~upper MAPL_String::String%upper proc~test_upper->none~upper true true proc~test_upper->true

Source Code

   subroutine test_upper()
      type(String) :: s

      s = 'aAbBcC'
      @assert_that(s%upper() == 'AABBCC', is(true()))
      
   end subroutine test_upper