test_conversions_mod Module Reference

Functions/Subroutines
subroutine	test_is_integer ()
subroutine	test_is_real ()
subroutine	test_is_logical ()
subroutine	test_real_to_integer ()
subroutine	test_logical_to_integer ()
subroutine	test_logical_to_real ()
subroutine	test_integer_to_string ()
subroutine	test_real_to_string ()
subroutine	test_logical_to_string ()
subroutine	test_string_to_generic ()
subroutine	test_string_to_generic_copy ()
subroutine	test_integer_to_generic ()
subroutine	test_integer_to_generic_copy ()
subroutine	test_real_to_generic ()
subroutine	test_real_to_generic_copy ()
subroutine	test_logical_to_generic ()
subroutine	test_logical_to_generic_copy ()

Function/Subroutine Documentation

test_integer_to_generic()

subroutine test_conversions_mod::test_integer_to_generic

(

)

Definition at line 167 of file test_conversions.F90.

    integer :: test_int
    integer, pointer :: retrieval_int
    class(*), pointer :: generic_data

    test_int = 72

    generic_data => conv_to_generic(test_int, .false.)
    call assert_true(associated(generic_data), "Generic data not null")
    retrieval_int => conv_to_integer(generic_data, .false.)
    call assert_true(associated(retrieval_int), "Retrieved integer not null")
    call assert_equals(test_int, retrieval_int, "To and from generic integers are equal")
    retrieval_int = 13
    call assert_equals(test_int, retrieval_int, "To and from generic integers are equal after modification")

Here is the caller graph for this function:

test_integer_to_generic_copy()

subroutine test_conversions_mod::test_integer_to_generic_copy

(

)

Definition at line 185 of file test_conversions.F90.

    integer :: test_int
    integer, pointer :: retrieval_int
    class(*), pointer :: generic_data

    test_int = 72

    generic_data => conv_to_generic(test_int, .true.)
    call assert_true(associated(generic_data), "Generic data not null")
    retrieval_int => conv_to_integer(generic_data, .false.)
    call assert_true(associated(retrieval_int), "Retrieved integer not null")
    retrieval_int = 19
    call assert_not_equals(test_int, retrieval_int, "To and from generic integers are different")

    generic_data => conv_to_generic(test_int, .false.)
    retrieval_int => conv_to_integer(generic_data, .true.)
    call assert_true(associated(generic_data), "Generic data not null")
    retrieval_int = 32
    call assert_not_equals(test_int, retrieval_int, "To and from generic integers are different")

Here is the caller graph for this function:

test_integer_to_string()

subroutine test_conversions_mod::test_integer_to_string

(

)

Definition at line 84 of file test_conversions.F90.

    integer :: test_int, retrieve_int
    character(len=15) :: retrieval_string

    test_int = 92
    retrieval_string = conv_to_string(test_int)
    retrieve_int = conv_to_integer(retrieval_string)
    call assert_equals(retrieve_int, test_int, "Integers after conversion to and from string are equal")

Here is the caller graph for this function:

test_is_integer()

subroutine test_conversions_mod::test_is_integer

(

)

Definition at line 13 of file test_conversions.F90.

    call assert_true(conv_is_integer("1"), "Small number")
    call assert_true(conv_is_integer("9874321"), "Large number")
    call assert_true(conv_is_integer("-1024"), "Negative number")
    call assert_true(conv_is_integer("+986"), "Positive number")
    call assert_false(conv_is_integer("1.2"), "Floating point")
    call assert_false(conv_is_integer("ABCD"), "Non number")
    call assert_false(conv_is_integer("87T"), "Numeric and non number characters")
    call assert_false(conv_is_integer("0xAB"), "Hexadecimal")

Here is the caller graph for this function:

test_is_logical()

subroutine test_conversions_mod::test_is_logical

(

)

Definition at line 41 of file test_conversions.F90.

    call assert_true(conv_is_logical("true"), "True value")
    call assert_true(conv_is_logical("false"), "False value")
    call assert_false(conv_is_logical("1"), "One number")
    call assert_false(conv_is_logical("0"), "Zero number")
    call assert_false(conv_is_logical("dsfdsfsd"), "Random characters")
    call assert_false(conv_is_logical("truexyz"), "Append characters to true")

Here is the caller graph for this function:

test_is_real()

subroutine test_conversions_mod::test_is_real

(

)

Definition at line 25 of file test_conversions.F90.

    call assert_true(conv_is_real("1"), "Small number")
    call assert_true(conv_is_real("9874321"), "Large number")
    call assert_true(conv_is_real("-1024"), "Negative number")
    call assert_true(conv_is_real("+986"), "Positive number")
    call assert_true(conv_is_real("1.2"), "Floating point")
    call assert_true(conv_is_real("45432.2343"), "Large floating point")
    call assert_true(conv_is_real("1e2"), "Exponent floating point")
    call assert_true(conv_is_real("1.56e+6"), "Large positive exponent floating point")
    call assert_true(conv_is_real("765.98e-6"), "Small negative exponent floating point")
    call assert_false(conv_is_real("ABCD"), "Non number")
    call assert_false(conv_is_real("87T"), "Numeric and non numeric characters")
    call assert_false(conv_is_real("0xAB"), "Hexadecimal")

Here is the caller graph for this function:

test_logical_to_generic()

subroutine test_conversions_mod::test_logical_to_generic

(

)

Definition at line 249 of file test_conversions.F90.

    logical :: test_logical
    logical, pointer :: retrieval_logical
    class(*), pointer :: generic_data

    test_logical = .true.

    generic_data => conv_to_generic(test_logical, .false.)
    call assert_true(associated(generic_data), "Generic data not null")
    retrieval_logical => conv_to_logical(generic_data, .false.)
    call assert_true(associated(retrieval_logical), "Retrieved logical not null")
    call assert_equals(test_logical, retrieval_logical, "To and from generic logicals are equal")
    retrieval_logical = .false.
    call assert_equals(test_logical, retrieval_logical, "To and from generic logicals are equal after modification")

Here is the caller graph for this function:

test_logical_to_generic_copy()

subroutine test_conversions_mod::test_logical_to_generic_copy

(

)

Definition at line 267 of file test_conversions.F90.

    logical :: test_logical
    logical, pointer :: retrieval_logical
    class(*), pointer :: generic_data

    test_logical = .true.

    generic_data => conv_to_generic(test_logical, .true.)
    call assert_true(associated(generic_data), "Generic data not null")
    retrieval_logical => conv_to_logical(generic_data, .false.)
    call assert_true(associated(retrieval_logical), "Retrieved logical not null")
    retrieval_logical = .false.
    call assert_not_equals(test_logical, retrieval_logical, "To and from generic logicals are different")

    generic_data => conv_to_generic(test_logical, .false.)
    call assert_true(associated(generic_data), "Generic data not null")
    retrieval_logical => conv_to_logical(generic_data, .true.)
    retrieval_logical = .false.
    call assert_not_equals(test_logical, retrieval_logical, "To and from generic logicals are different")

Here is the caller graph for this function:

test_logical_to_integer()

subroutine test_conversions_mod::test_logical_to_integer

(

)

Definition at line 62 of file test_conversions.F90.

    logical :: test_logical, retrieve_logical
    integer :: retrieval_int

    test_logical=.true.
    retrieval_int = conv_to_integer(test_logical)
    retrieve_logical = conv_to_logical(retrieval_int)
    call assert_equals(retrieve_logical, test_logical, "Logicals after conversion to and from integer are equal")

Here is the caller graph for this function:

test_logical_to_real()

subroutine test_conversions_mod::test_logical_to_real

(

)

Definition at line 73 of file test_conversions.F90.

    logical :: test_logical, retrieve_logical
    real :: retrieval_real

    test_logical=.true.
    retrieval_real = conv_to_real(test_logical)
    retrieve_logical = conv_to_logical(retrieval_real)
    call assert_equals(retrieve_logical, test_logical, "Logicals after conversion to and from real are equal")

Here is the caller graph for this function:

test_logical_to_string()

subroutine test_conversions_mod::test_logical_to_string

(

)

Definition at line 108 of file test_conversions.F90.

    logical :: test_logical, retrieve_logical
    character(len=5) :: retrieval_string

    test_logical = .true.
    retrieval_string = conv_to_string(test_logical)
    retrieve_logical = conv_to_logical(retrieval_string)
    call assert_equals(retrieve_logical, test_logical, "Logicals after conversion to and from string are equal")

Here is the caller graph for this function:

test_real_to_generic()

subroutine test_conversions_mod::test_real_to_generic

(

)

Definition at line 208 of file test_conversions.F90.

    real :: test_real
    real, pointer :: retrieval_real
    class(*), pointer :: generic_data

    test_real = 72.92

    generic_data => conv_to_generic(test_real, .false.)
    call assert_true(associated(generic_data), "Generic data not null")
    retrieval_real => conv_to_real(generic_data, .false.)
    call assert_true(associated(retrieval_real), "Retrieved real not null")
    call assert_equals(test_real, retrieval_real, "To and from generic reals are equal")
    retrieval_real = 13.1
    call assert_equals(test_real, retrieval_real, "To and from generic real are equal after modification")

Here is the caller graph for this function:

test_real_to_generic_copy()

subroutine test_conversions_mod::test_real_to_generic_copy

(

)

Definition at line 226 of file test_conversions.F90.

    real :: test_real
    real, pointer :: retrieval_real
    class(*), pointer :: generic_data

    test_real = 72.92

    generic_data => conv_to_generic(test_real, .true.)
    call assert_true(associated(generic_data), "Generic data not null")
    retrieval_real => conv_to_real(generic_data, .false.)
    call assert_true(associated(retrieval_real), "Retrieved real not null")
    retrieval_real = 19
    call assert_not_equals(test_real, retrieval_real, "To and from generic reals are different")

    generic_data => conv_to_generic(test_real, .false.)
    call assert_true(associated(generic_data), "Generic data not null")
    retrieval_real => conv_to_real(generic_data, .true.)
    retrieval_real = 32
    call assert_not_equals(test_real, retrieval_real, "To and from generic reals are different")

Here is the caller graph for this function:

test_real_to_integer()

subroutine test_conversions_mod::test_real_to_integer

(

)

Definition at line 51 of file test_conversions.F90.

    real :: test_real, retrieve_real
    integer :: retrieval_int

    test_real=19
    retrieval_int = conv_to_integer(test_real)
    retrieve_real = conv_to_real(retrieval_int)
    call assert_equals(retrieve_real, test_real, "Reals after conversion to and from integer are equal")

Here is the caller graph for this function:

test_real_to_string()

subroutine test_conversions_mod::test_real_to_string

(

)

Definition at line 95 of file test_conversions.F90.

    real :: test_real, retrieve_real, diff
    character(len=30) :: retrieval_string

    test_real = 63.45
    retrieval_string = conv_to_string(test_real)
    retrieve_real = conv_to_real(retrieval_string)
    ! Conversion to string is not exact, therefore take the difference and ensure it is within permissable bounds
    diff = test_real - retrieve_real    
    call assert_true(diff .gt. -0.0001 .and. diff .lt. 0.0001, "Reals after conversion to and from string are equal")

Here is the caller graph for this function:

test_string_to_generic()

subroutine test_conversions_mod::test_string_to_generic

(

)

Definition at line 120 of file test_conversions.F90.

    character(len=100) :: test_string
    character(len=100), pointer :: retrieval_string
    class(*), pointer :: generic_data

    integer :: i
    do i=1,100
      test_string(i:i)='C'
    end do

    generic_data => conv_to_generic(test_string, .false.)
    call assert_true(associated(generic_data), "Generic data not null")
    retrieval_string => conv_to_string(generic_data, .false., 100)
    call assert_true(associated(retrieval_string), "Retrieved string not null")
    call assert_equals(test_string, retrieval_string, "To and from generic strings are equal")
    retrieval_string(4:6) = "LKJ"
    call assert_equals(test_string, retrieval_string, "To and from generic strings are equal after one modified")

Here is the caller graph for this function:

test_string_to_generic_copy()

subroutine test_conversions_mod::test_string_to_generic_copy

(

)

Definition at line 141 of file test_conversions.F90.

    character(len=100) :: test_string
    character(len=100), pointer :: retrieval_string
    class(*), pointer :: generic_data

    integer :: i
    do i=1,100
      test_string(i:i)='C'
    end do

    generic_data => conv_to_generic(test_string, .true.)
    call assert_true(associated(generic_data), "Generic data not null")
    retrieval_string => conv_to_string(generic_data, .false., 100)
    call assert_true(associated(retrieval_string), "Retrieved string not null")
    retrieval_string(4:6) = "LKJ"
    call assert_not_equals(test_string, retrieval_string, "To and from generic strings are different")

    generic_data => conv_to_generic(test_string, .false.)
    retrieval_string => conv_to_string(generic_data, .true., 100)
    call assert_true(associated(generic_data), "Generic data not null")
    retrieval_string(4:6) = "LKJ"
    call assert_not_equals(test_string, retrieval_string, "To and from generic strings are different")

Here is the caller graph for this function: