Skip to content

Commit 91d6b1f

Browse files
committed
Update ValueClassTests.f90
cover more stringValue tests
1 parent 2ea6e4b commit 91d6b1f

File tree

1 file changed

+8
-0
lines changed

1 file changed

+8
-0
lines changed

Testing/Tests/ValueClassTests.f90

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -147,6 +147,8 @@ SUBROUTINE FTValueClassTests
147147
CALL FTAssertEqual(DBLE(3.14),v % doublePrecisionValue(),doubleTol,msg="Double return for real object")
148148
s = v % stringValue()
149149
CALL FTAssertEqual("3.140000",s(1:8),"String return for real object")
150+
s = v % stringValue(8)
151+
CALL FTAssertEqual("3.140000",s(1:8),"String return for real object")
150152
CALL FTAssertEqual(.true.,v % logicalValue(),"Logical return for real object")
151153
!
152154
! ----------------------------------------------------------------
@@ -168,6 +170,7 @@ SUBROUTINE FTValueClassTests
168170
CALL FTAssertEqual(666,v % integerValue(),"Integer storage to integer")
169171
CALL FTAssertEqual(DBLE(666.0),v % doublePrecisionValue(),doubleTol,msg="Integer storage to double")
170172
CALL FTAssertEqual("666",v % stringValue(),"Integer storage to string")
173+
CALL FTAssertEqual("666",v % stringValue(3),"Integer storage to string")
171174
CALL FTAssertEqual(.true.,v % logicalValue(),"Integer storage to logical")
172175
!
173176
! ------------------------------------------
@@ -190,6 +193,8 @@ SUBROUTINE FTValueClassTests
190193
CALL FTAssertEqual(d,v % doublePrecisionValue(),doubleTol,msg="Double storage to double")
191194
s = v % stringValue()
192195
CALL FTAssertEqual("0.33333333333333",s(1:16),"Double storage to string")
196+
s = v % stringValue(16)
197+
CALL FTAssertEqual("0.33333333333333",s(1:16),"Double storage to string")
193198
CALL FTAssertEqual(.true.,v % logicalValue(),"Double storage to logical")
194199
!
195200
! -----------------------------------------------
@@ -284,6 +289,9 @@ SUBROUTINE FTValueClassTests
284289
CALL FTAssertEqual(expectedValue = "stringValue", &
285290
actualValue = vFromObj % stringValue(), &
286291
msg = "Check that cast is correct")
292+
CALL FTAssertEqual(expectedValue = "stringValue", &
293+
actualValue = vFromObj % stringValue(11), &
294+
msg = "Check that cast is correct")
287295
!
288296
! ---------------
289297
! Test bad values

0 commit comments

Comments
 (0)