Test_MAPL_Config.pf Source File


This file depends on

sourcefile~~test_mapl_config.pf~~EfferentGraph sourcefile~test_mapl_config.pf Test_MAPL_Config.pf sourcefile~mapl_config.f90 MAPL_Config.F90 sourcefile~test_mapl_config.pf->sourcefile~mapl_config.f90 sourcefile~mapl_exceptionhandling.f90 MAPL_ExceptionHandling.F90 sourcefile~mapl_config.f90->sourcefile~mapl_exceptionhandling.f90 sourcefile~mapl_keywordenforcer.f90 MAPL_KeywordEnforcer.F90 sourcefile~mapl_config.f90->sourcefile~mapl_keywordenforcer.f90 sourcefile~mapl_errorhandling.f90 MAPL_ErrorHandling.F90 sourcefile~mapl_exceptionhandling.f90->sourcefile~mapl_errorhandling.f90 sourcefile~mapl_throw.f90 MAPL_Throw.F90 sourcefile~mapl_exceptionhandling.f90->sourcefile~mapl_throw.f90 sourcefile~mapl_errorhandling.f90->sourcefile~mapl_throw.f90

Source Code

module Test_MAPL_Config
   use pfunit
   use MAPL_ConfigMod
   use ESMF

contains

@test
   subroutine test_SetAttribute_string
      type (ESMF_Config) :: config
      integer :: status
      character(len=ESMF_MAXSTR) :: str

      
      config = MAPL_ConfigCreate()
      call MAPL_ConfigSetAttribute(config, 'LatLon', 'GRID_TYPE:', rc=status)
      call ESMF_ConfigGetAttribute(config, value=str, label='GRID_TYPE:', rc=status)
   end subroutine test_SetAttribute_string

end module Test_MAPL_Config