bool check_original_exported_data_equal(const enkf_node_type * field_node) { FILE * original_stream = util_fopen( "petro.grdecl" , "r"); ecl_kw_type * kw_original = ecl_kw_fscanf_alloc_grdecl_dynamic( original_stream , "PORO" , ECL_DOUBLE_TYPE ); enkf_node_ecl_write(field_node, "tmp", NULL, 0); FILE * exported_stream = util_fopen( "tmp/PORO.grdecl" , "r"); ecl_kw_type * kw_exported = ecl_kw_fscanf_alloc_grdecl_dynamic( exported_stream , "PORO" , ECL_DOUBLE_TYPE ); bool ret = ecl_kw_numeric_equal(kw_original, kw_exported, 1e-5); util_fclose(original_stream); util_fclose(exported_stream); ecl_kw_free(kw_original); ecl_kw_free(kw_exported); return ret; }
void test_send_fortio_to_gen_kw_ecl_write(void * arg) { enkf_main_type * enkf_main = arg; test_assert_not_NULL(enkf_main); fortio_type * fortio = fortio_open_writer("my_new_file", false, ECL_ENDIAN_FLIP); test_assert_not_NULL(fortio); enkf_state_type * state = enkf_main_iget_state( enkf_main , 0 ); test_assert_not_NULL(state); enkf_node_type * enkf_node = enkf_state_get_node( state , "MULTFLT" ); test_assert_not_NULL(enkf_node); const enkf_config_node_type * config_node = enkf_node_get_config(enkf_node); test_assert_not_NULL(config_node); if (GEN_KW == enkf_config_node_get_impl_type(config_node)) { const char * dummy_path = "dummy_path"; enkf_node_ecl_write(enkf_node, dummy_path, fortio, 0); } }