test_write_kitchen_sink Subroutine

public subroutine test_write_kitchen_sink()

Arguments

None

Calls

proc~~test_write_kitchen_sink~~CallsGraph proc~test_write_kitchen_sink test_write_kitchen_sink ESMF_HConfigCreate ESMF_HConfigCreate proc~test_write_kitchen_sink->ESMF_HConfigCreate ESMF_HConfigDestroy ESMF_HConfigDestroy proc~test_write_kitchen_sink->ESMF_HConfigDestroy anyexceptions anyexceptions proc~test_write_kitchen_sink->anyexceptions assert_that assert_that proc~test_write_kitchen_sink->assert_that assertequal assertequal proc~test_write_kitchen_sink->assertequal sourcelocation sourcelocation proc~test_write_kitchen_sink->sourcelocation

Source Code

   subroutine test_write_kitchen_sink()
      type(ESMF_HConfig) :: hconfig
      character(100) :: buffer
      integer :: status
      character(*), parameter :: CONTENT = '{a: [{b: 1, c: 2, d: [3, 4, e]}]}'
      hconfig = ESMF_HConfigCreate(content=CONTENT, _RC)
      write(buffer, *, iostat=status) hconfig
      _VERIFY(status)
      @assertEqual(expected=CONTENT, found=trim(buffer))
      call ESMF_HConfigDestroy(hconfig)
   end subroutine test_write_kitchen_sink