test_optionsdatabase_mod Module Reference

Functions/Subroutines
subroutine	test_get_argument_value_type ()
subroutine	test_add_logical_key_value_pairs ()
subroutine	test_add_integer_key_value_pairs ()
subroutine	test_add_real_key_value_pairs ()
subroutine	test_add_string_key_value_pairs ()

Function/Subroutine Documentation

test_add_integer_key_value_pairs()

subroutine test_optionsdatabase_mod::test_add_integer_key_value_pairs

Definition at line 47 of file test_optionsdatabase.F90.

    type(map_type) :: options_database
    class(*), pointer :: raw_data
 
    call add_specific_option_key_value_pair(integer_type, options_database, "--test1=9542")
    call add_specific_option_key_value_pair(integer_type, options_database, "--test2=-1234")
    call add_specific_option_key_value_pair(integer_type, options_database, "--test3=+82")
    call add_specific_option_key_value_pair(integer_type, options_database, "--test4=0")
 
    raw_data=>c_get(options_database, "test1")
    call assert_equals(9542, conv_to_integer(raw_data, .false.), "Simple integer value added")
    raw_data=>c_get(options_database, "test2")
    call assert_equals(-1234, conv_to_integer(raw_data, .false.), "Negative integer value added")
    raw_data=>c_get(options_database, "test3")
    call assert_equals(82, conv_to_integer(raw_data, .false.), "Positive integer value added")
    raw_data=>c_get(options_database, "test4")
    call assert_equals(0, conv_to_integer(raw_data, .false.), "Zero integer value added")
 

Here is the call graph for this function:

Here is the caller graph for this function:

test_add_logical_key_value_pairs()

subroutine test_optionsdatabase_mod::test_add_logical_key_value_pairs

Definition at line 30 of file test_optionsdatabase.F90.

    type(map_type) :: options_database
    class(*), pointer :: raw_data
 
    call add_specific_option_key_value_pair(logical_type, options_database, "--test1")
    call add_specific_option_key_value_pair(logical_type, options_database, "--test2=false")
    call add_specific_option_key_value_pair(logical_type, options_database, "--test3=true")
 
    raw_data=>c_get(options_database, "test1")
    call assert_true(conv_to_logical(raw_data, .false.), "Logical no value is true")
    raw_data=>c_get(options_database, "test2")
    call assert_false(conv_to_logical(raw_data, .false.), "Logical false values")
    raw_data=>c_get(options_database, "test3")
    call assert_true(conv_to_logical(raw_data, .false.), "Logical true values")

Here is the call graph for this function:

Here is the caller graph for this function:

test_add_real_key_value_pairs()

subroutine test_optionsdatabase_mod::test_add_real_key_value_pairs

Definition at line 68 of file test_optionsdatabase.F90.

    type(map_type) :: options_database
    class(*), pointer :: raw_data
 
    call add_specific_option_key_value_pair(real_type, options_database, "--test1=9542.342")
    call add_specific_option_key_value_pair(real_type, options_database, "--test2=-1.33e9")
    call add_specific_option_key_value_pair(real_type, options_database, "--test3=987.232e-6")
    call add_specific_option_key_value_pair(real_type, options_database, "--test4=-98.72")
 
    raw_data=>c_get(options_database, "test1")
    call assert_equals(9542.342, conv_to_real(raw_data, .false.), "Simple float value added")
    raw_data=>c_get(options_database, "test2")
    call assert_equals(-1.33e9, conv_to_real(raw_data, .false.), "Negative with exponent value added")
    raw_data=>c_get(options_database, "test3")
    call assert_equals(987.232e-6, conv_to_real(raw_data, .false.), &
      "Positive with negative exponent value added")
      raw_data=>c_get(options_database, "test4")
    call assert_equals(-98.72, conv_to_real(raw_data, .false.), "Negative float value added")
 

Here is the call graph for this function:

Here is the caller graph for this function:

test_add_string_key_value_pairs()

subroutine test_optionsdatabase_mod::test_add_string_key_value_pairs

Definition at line 90 of file test_optionsdatabase.F90.

    type(map_type) :: options_database
    class(*), pointer :: raw_data
 
    call add_specific_option_key_value_pair(string_type, options_database, "--test1=abc")
    call add_specific_option_key_value_pair(string_type, options_database, "--test2=HeLlO")
 
    raw_data=>c_get(options_database, "test1")
    call assert_equals("abc", conv_to_string(raw_data, .false., 44), "Simple string")
    raw_data=>c_get(options_database, "test2")
    call assert_equals("HeLlO", conv_to_string(raw_data, .false., 44), "Case sensitive string")
 

Here is the call graph for this function:

Here is the caller graph for this function:

test_get_argument_value_type()

subroutine test_optionsdatabase_mod::test_get_argument_value_type

Definition at line 13 of file test_optionsdatabase.F90.

 
    call assert_equals(logical_type, get_argument_value_type("true"), "True is logical")
    call assert_equals(logical_type, get_argument_value_type("false"), "False is logical")
    call assert_equals(integer_type, get_argument_value_type("12345"), "Simple number is integer")
    call assert_equals(integer_type, get_argument_value_type("+98"), "Positive number is integer")
    call assert_equals(integer_type, get_argument_value_type("-55232"), "Negative number is integer")
    call assert_equals(integer_type, get_argument_value_type("0"), "Zero is integer")
    call assert_equals(real_type, get_argument_value_type("1.2"), "Simple floating point is real")
    call assert_equals(real_type, get_argument_value_type("1.9867e6"), "Exponent floating point is real")
    call assert_equals(real_type, get_argument_value_type("72.54e-6"), "Small exponent floating point is real")
    call assert_equals(real_type, get_argument_value_type("-9983.2324"), "Negative floating point is real")
    call assert_equals(string_type, get_argument_value_type("hello"), "Other characters are string")
    call assert_equals(string_type, get_argument_value_type("1234abc"), "Number and then non numeric characters are string")

Here is the call graph for this function:

Here is the caller graph for this function: