test_get_units Subroutine

public subroutine test_get_units()

Arguments

None

Calls

proc~~test_get_units~~CallsGraph proc~test_get_units test_get_units assert_that assert_that proc~test_get_units->assert_that assertequal assertequal proc~test_get_units->assertequal none~get_units~2 FieldDictionary%get_units proc~test_get_units->none~get_units~2 none~at~153 FieldDictionaryItemMap%at none~get_units~2->none~at~153 none~get_units FieldDictionaryItem%get_units none~get_units~2->none~get_units proc~mapl_return MAPL_Return none~get_units~2->proc~mapl_return proc~mapl_verify MAPL_Verify none~get_units~2->proc~mapl_verify none~at_rc~9 FieldDictionaryItemMap%at_rc none~at~153->none~at_rc~9 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~39 FieldDictionaryItemMap%find none~at_rc~9->none~find~39

Source Code

   subroutine test_get_units()
      type(FieldDictionary) :: fd
      character(:), allocatable :: units
      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"} }')

      units = fd%get_units('A_B_C', rc=status)
      @assert_that(status, is(0))
      @assertEqual('s', units)
      
      units = fd%get_units('X_Y_Z', rc=status)
      @assert_that(status, is(0))
      @assertEqual('m', units)

   end subroutine test_get_units