test_get_dimension Subroutine

public subroutine test_get_dimension()

Arguments

None

Calls

proc~~test_get_dimension~~CallsGraph proc~test_get_dimension test_get_dimension assertequal assertequal proc~test_get_dimension->assertequal none~add_dimension FileMetadata%add_dimension proc~test_get_dimension->none~add_dimension none~get_dimension FileMetadata%get_dimension proc~test_get_dimension->none~get_dimension none~add_dimension->none~get_dimension insert insert none~add_dimension->insert interface~mapl_assert MAPL_Assert none~add_dimension->interface~mapl_assert none~has_dimension FileMetadata%has_dimension none~add_dimension->none~has_dimension proc~mapl_return MAPL_Return none~add_dimension->proc~mapl_return at at none~get_dimension->at find find none~get_dimension->find none~get_dimension->proc~mapl_return none~has_dimension->find none~has_dimension->proc~mapl_return proc~mapl_return->at proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Source Code

   subroutine test_get_dimension()
      type (FileMetadata) :: cf

      call cf%add_dimension('x', 10)
      call cf%add_dimension('y', 11)

      @assertEqual(10, cf%get_dimension('x'))
      @assertEqual(11, cf%get_dimension('y'))
      
   end subroutine test_get_dimension