Skip to content

Commit fa8f8be

Browse files
committed
Add tests as flagged missing by test coverage action.
1 parent 59af048 commit fa8f8be

File tree

4 files changed

+31
-3
lines changed

4 files changed

+31
-3
lines changed

src/Infrastructure/Array/tests/ESMF_ArrayCreateGetUTest.F90

Lines changed: 8 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -203,7 +203,7 @@ program ESMF_ArrayCreateGetUTest
203203
!NEX_UTest_Multi_Proc_Only
204204
! Testing ESMF_ArrayAssignment(=)()
205205
write(name, *) "Array assignment and equality Test"
206-
write(failMsg, *) "Did not return ESMF_SUCCESS"
206+
write(failMsg, *) "Did not produce alias"
207207
arrayAlias = array
208208
arrayBool = (arrayAlias.eq.array)
209209
call ESMF_Test(arrayBool, name, failMsg, result, ESMF_SRCLINE)
@@ -298,6 +298,13 @@ program ESMF_ArrayCreateGetUTest
298298
call ESMF_ArrayPrint(array, rc=rc)
299299
call ESMF_Test((rc.eq.ESMF_SUCCESS), name, failMsg, result, ESMF_SRCLINE)
300300

301+
!------------------------------------------------------------------------
302+
!NEX_UTest_Multi_Proc_Only
303+
write(name, *) "ArrayLog 2D ESMF_TYPEKIND_R8 Test"
304+
write(failMsg, *) "Did not return ESMF_SUCCESS"
305+
call ESMF_ArrayLog(array, prefix="ArrayLog 2D ESMF_TYPEKIND_R8: ", rc=rc)
306+
call ESMF_Test((rc.eq.ESMF_SUCCESS), name, failMsg, result, ESMF_SRCLINE)
307+
301308
!------------------------------------------------------------------------
302309
!NEX_UTest_Multi_Proc_Only
303310
write(name, *) "ArrayGet arrayspec and name, 2D ESMF_TYPEKIND_R8 Test"

src/Infrastructure/DistGrid/tests/ESMF_DistGridCreateGetUTest.F90

Lines changed: 8 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -227,7 +227,7 @@ program ESMF_DistGridCreateGetUTest
227227
!NEX_UTest
228228
! Testing ESMF_DistGridAssignment(=)()
229229
write(name, *) "DistGrid assignment and equality Test"
230-
write(failMsg, *) "Did not return ESMF_SUCCESS"
230+
write(failMsg, *) "Did not produce alias"
231231
distgridAlias = distgrid
232232
distgridBool = (distgridAlias.eq.distgrid)
233233
call ESMF_Test(distgridBool, name, failMsg, result, ESMF_SRCLINE)
@@ -644,6 +644,13 @@ program ESMF_DistGridCreateGetUTest
644644
call ESMF_DistGridPrint(distgrid3, rc=rc)
645645
call ESMF_Test((rc.eq.ESMF_SUCCESS), name, failMsg, result, ESMF_SRCLINE)
646646

647+
!------------------------------------------------------------------------
648+
!NEX_UTest
649+
write(name, *) "DistGridLog()"
650+
write(failMsg, *) "Did not return ESMF_SUCCESS"
651+
call ESMF_DistGridLog(distgrid3, prefix="distgrid3: ", rc=rc)
652+
call ESMF_Test((rc.eq.ESMF_SUCCESS), name, failMsg, result, ESMF_SRCLINE)
653+
647654
!------------------------------------------------------------------------
648655
!NEX_UTest
649656
write(name, *) "DistGridDestroy()"

src/Infrastructure/Field/tests/ESMF_FieldUTest.F90

Lines changed: 8 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -224,7 +224,7 @@ program ESMF_FieldUTest
224224
!NEX_UTest_Multi_Proc_Only
225225
! Testing ESMF_FieldAssignment(=)()
226226
write(name, *) "Field assignment and equality Test"
227-
write(failMsg, *) "Did not return ESMF_SUCCESS"
227+
write(failMsg, *) "Did not produce alias"
228228
fieldAlias = f1
229229
fieldBool = (fieldAlias.eq.f1)
230230
call ESMF_Test(fieldBool, name, failMsg, result, ESMF_SRCLINE)
@@ -472,6 +472,13 @@ program ESMF_FieldUTest
472472

473473
fS = f2 ! assignment will lead to shallow copy, use later down
474474

475+
!------------------------------------------------------------------------
476+
!EX_UTest_Multi_Proc_Only
477+
write(name, *) "FieldLog Test"
478+
write(failMsg, *) "Did not return ESMF_SUCCESS"
479+
call ESMF_FieldLog(f2, prefix="FieldLog for f2: ", rc=rc)
480+
call ESMF_Test((rc.eq.ESMF_SUCCESS), name, failMsg, result, ESMF_SRCLINE)
481+
475482
!------------------------------------------------------------------------
476483
!EX_UTest_Multi_Proc_Only
477484
! Verifying that a Field with no data can be destroyed

src/Infrastructure/HConfig/tests/ESMF_HConfigUTest.F90

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -925,7 +925,14 @@ program ESMF_HConfigUTest
925925
call ESMF_Test((rc.eq.ESMF_SUCCESS), name, failMsg, result, ESMF_SRCLINE)
926926
!------------------------------------------------------------------------
927927

928+
!------------------------------------------------------------------------
929+
!NEX_UTest
930+
! Testing ESMF_HConfigAssignment(=)()
931+
write(name, *) "HConfig assignment and equality Test"
932+
write(failMsg, *) "Did not produce alias"
928933
hconfigAlias = hconfig ! assignment
934+
call ESMF_Test((hconfigAlias.eq.hconfig), name, failMsg, result, ESMF_SRCLINE)
935+
!------------------------------------------------------------------------
929936

930937
!------------------------------------------------------------------------
931938
!NEX_UTest

0 commit comments

Comments
 (0)