test_get_dimensions Subroutine

public subroutine test_get_dimensions()

Arguments

None

Calls

proc~~test_get_dimensions~~CallsGraph proc~test_get_dimensions test_get_dimensions assertequal assertequal proc~test_get_dimensions->assertequal none~add_dimension FileMetadata%add_dimension proc~test_get_dimensions->none~add_dimension none~get_dimensions~2 FileMetadata%get_dimensions proc~test_get_dimensions->none~get_dimensions~2 insert insert none~add_dimension->insert proc~mapl_return MAPL_Return none~add_dimension->proc~mapl_return proc~mapl_return->insert at at proc~mapl_return->at proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Source Code

   subroutine test_get_dimensions()
      type (FileMetadata), target :: cf
      type (StringIntegerMap), pointer :: dimensions

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

      dimensions => cf%get_dimensions()
      @assertEqual(2, dimensions%size())

   end subroutine test_get_dimensions