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 166 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 184 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 83 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 12 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 40 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 24 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 248 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 266 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 61 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 72 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 107 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 207 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 225 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 50 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 94 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 119 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 140 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: