Add testing for ESMF_LogInfo() method.

esmf-org · Dec 16, 2024 · 7deaaec · 7deaaec
1 parent f393771
commit 7deaaec
Showing 1 changed file with 23 additions and 0 deletions.
diff --git a/src/Infrastructure/Base/tests/ESMF_InfoUTest.F90 b/src/Infrastructure/Base/tests/ESMF_InfoUTest.F90
@@ -339,6 +339,29 @@ program ESMF_InfoUTest
   if (rc /= ESMF_SUCCESS) call ESMF_Finalize(endflag=ESMF_END_ABORT)
   !----------------------------------------------------------------------------
 
+  !----------------------------------------------------------------------------
+  !NEX_UTest
+  write(name, *) "ESMF_InfoLog"
+  write(failMsg, *) "Did not return success."
+
+  rc = ESMF_FAILURE
+
+  info6 = ESMF_InfoCreate(rc=rc)
+  if (rc /= ESMF_SUCCESS) call ESMF_Finalize(endflag=ESMF_END_ABORT)
+
+  call ESMF_InfoSet(info6, "/i/am/nested", 111, rc=rc)
+  if (rc /= ESMF_SUCCESS) call ESMF_Finalize(endflag=ESMF_END_ABORT)
+
+  call ESMF_InfoSet(info6, "top-level", 222, rc=rc)
+  if (rc /= ESMF_SUCCESS) call ESMF_Finalize(endflag=ESMF_END_ABORT)
+
+  call ESMF_InfoLog(info6, prefix="info6: ", rc=rc)
+  call ESMF_Test((rc == ESMF_SUCCESS), name, failMsg, result, ESMF_SRCLINE)
+
+  call ESMF_InfoDestroy(info6, rc=rc)
+  if (rc /= ESMF_SUCCESS) call ESMF_Finalize(endflag=ESMF_END_ABORT)
+  !----------------------------------------------------------------------------
+
   !----------------------------------------------------------------------------
   !NEX_UTest
   write(name, *) "ESMF_InfoRemove Child From Parent"