test_make_grid_no_prototype Subroutine

public subroutine test_make_grid_no_prototype()

Arguments

None

Calls

proc~~test_make_grid_no_prototype~~CallsGraph proc~test_make_grid_no_prototype Test_GridManager::test_make_grid_no_prototype assertexceptionraised assertexceptionraised proc~test_make_grid_no_prototype->assertexceptionraised assertfalse assertfalse proc~test_make_grid_no_prototype->assertfalse none~delete MAPL_GridManager_private::GridManager%delete proc~test_make_grid_no_prototype->none~delete none~make_grid~2 MAPL_GridManager_private::GridManager%make_grid proc~test_make_grid_no_prototype->none~make_grid~2 ESMF_GridDestroy ESMF::ESMF_GridDestroy none~delete->ESMF_GridDestroy interface~mapl_assert MAPL_ErrorHandlingMod::MAPL_Assert none~delete->interface~mapl_assert proc~mapl_return MAPL_ErrorHandlingMod::MAPL_Return none~delete->proc~mapl_return none~make_grid_from_distgrid MAPL_GridManager_private::GridManager%make_grid_from_distGrid none~make_grid~2->none~make_grid_from_distgrid none~make_grid_from_distgrid->none~make_grid~2 none~make_grid_from_distgrid->proc~mapl_return ESMF_AttributeSet ESMF::ESMF_AttributeSet none~make_grid_from_distgrid->ESMF_AttributeSet none~make_factory MAPL_GridManager_private::GridManager%make_factory none~make_grid_from_distgrid->none~make_factory proc~mapl_verify MAPL_ErrorHandlingMod::MAPL_Verify none~make_grid_from_distgrid->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_ThrowMod::MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception none~make_factory_from_distgrid MAPL_GridManager_private::GridManager%make_factory_from_distGrid none~make_factory->none~make_factory_from_distgrid proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine test_make_grid_no_prototype()
      type (GridManager) :: grid_manager
      type (ESMF_Grid) :: grid

      integer :: status

      grid = grid_manager%make_grid(config, rc=status)
      ! should have failed, but need to clean up otherwise
      if (status == 0) then
         call grid_manager%delete(grid)
      end if
      @assertExceptionRaised('label not found')

      ! Check that it actually failed
      @assertFalse(0 == status, 'made a grid even though there is no prototype')
      
   end subroutine test_make_grid_no_prototype