17 type(map_type) :: options_database
18 class(*),
pointer :: raw_data
20 call parse_configuration_file(options_database,
"user_config")
22 raw_data=>c_get(options_database,
"viscosity_enabled")
23 call assert_false(conv_to_logical(raw_data, .false.),
"Test viscosity is not enable")
25 raw_data=>c_get(options_database,
"rhobous")
26 call assert_equals(1.0, conv_to_real(raw_data, .false.),
"Test setup configuration values")
28 raw_data=>c_get(options_database,
"passive_q")
29 call assert_false(conv_to_logical(raw_data, .false.),
"Test logical value is false when missing")
31 raw_data=>c_get(options_database,
"number_q_fields")
32 call assert_equals(5, conv_to_integer(raw_data, .false.),
"Test integer values read")
34 raw_data=>c_get(options_database,
"checkpoint_enable_write")
35 call assert_true(conv_to_logical(raw_data, .false.),
"Test result when entry is not defined in the user file but in the global file")