Test content==reference
.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(*), | intent(in) | :: | content | Content value. |
||
integer(kind=int32), | intent(in) | :: | reference | Reference value. |
subroutine test_assert_equal(content, reference)
!---------------------------------------------------------------------------------------------------------------------------------
!< Test `content==reference`.
!---------------------------------------------------------------------------------------------------------------------------------
class(*), intent(in) :: content !< Content value.
integer(int32), intent(in) :: reference !< Reference value.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
select type(content)
type is(integer(int32))
call hasty_tester%assert_equal(content, reference)
endselect
!---------------------------------------------------------------------------------------------------------------------------------
endsubroutine test_assert_equal