test_get_long_name Subroutine

public subroutine test_get_long_name()

Arguments

None

Calls

proc~~test_get_long_name~~CallsGraph proc~test_get_long_name test_get_long_name assert_that assert_that proc~test_get_long_name->assert_that assertequal assertequal proc~test_get_long_name->assertequal none~get_long_name~2 FieldDictionary%get_long_name proc~test_get_long_name->none~get_long_name~2 none~at~86 FieldDictionaryItemMap%at none~get_long_name~2->none~at~86 none~get_long_name FieldDictionaryItem%get_long_name none~get_long_name~2->none~get_long_name proc~mapl_return MAPL_Return none~get_long_name~2->proc~mapl_return proc~mapl_verify MAPL_Verify none~get_long_name~2->proc~mapl_verify none~at_rc~4 FieldDictionaryItemMap%at_rc none~at~86->none~at_rc~4 at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception none~find~32 FieldDictionaryItemMap%find none~at_rc~4->none~find~32

Source Code

   subroutine test_get_long_name()
      type(FieldDictionary) :: fd
      character(:), allocatable :: long_name
      integer :: status
      
      fd = FieldDictionary(stream = '{' // &
           'X_Y_Z: {canonical_units: m, long_name: "X Y Z"},' //  &
           'A_B_C: {canonical_units: s, long_name: "A B C"} }')

      long_name = fd%get_long_name('A_B_C', rc=status)
      @assert_that(status, is(0))
      @assertEqual('A B C', long_name)
      
      long_name = fd%get_long_name('X_Y_Z', rc=status)
      @assert_that(status, is(0))
      @assertEqual('X Y Z', long_name)

   end subroutine test_get_long_name