#include "output.h"
#include "dump_gom.h"
#include "portability.h"
+#include "string.h"
#include <locale.h>
#include <stdio.h>
return 0;
}
+char* print_date(const char* message, struct date_value* dv)
+{
+ char* date_str;
+ output(0, "\n%s:", message);
+ show_date(dv);
+ date_str = gedcom_date_to_string(dv);
+ output(0, "String: '%s'\n", str_val(date_str));
+ return date_str;
+}
+
+int test_date_functions()
+{
+ struct header* head;
+ struct date_value* dv;
+ char* date_str;
+ int normalized;
+
+ head = gom_get_header();
+ if (head == NULL)
+ return 100;
+
+ dv = head->date;
+ if (dv != NULL)
+ return 101;
+
+ dv = gedcom_new_date_value(NULL);
+ if (dv == NULL)
+ return 102;
+
+ head->date = dv;
+ date_str = print_date("Initial date value", dv);
+ if (date_str[0])
+ return 103;
+
+ dv->date1.cal = CAL_GREGORIAN;
+ strcpy(dv->date1.year_str, "1990");
+ normalized = gedcom_normalize_date(DI_FROM_STRINGS, dv);
+ if (normalized != 0)
+ return 104;
+ date_str = print_date("Setting only year string", dv);
+ if (! date_str[0])
+ return 105;
+
+ dv->date1.year = 1989;
+ normalized = gedcom_normalize_date(DI_FROM_NUMBERS, dv);
+ if (normalized != 0)
+ return 106;
+ date_str = print_date("Setting only year number", dv);
+ if (! date_str[0])
+ return 107;
+
+ dv->date1.type = DATE_EXACT;
+ dv->date1.sdn1 = 2500000;
+ dv->date1.sdn2 = -1;
+ normalized = gedcom_normalize_date(DI_FROM_SDN, dv);
+ if (normalized != 0)
+ return 108;
+ date_str = print_date("Setting only SDN 1", dv);
+ if (! date_str[0])
+ return 109;
+
+ dv->date1.cal = CAL_HEBREW;
+ normalized = gedcom_normalize_date(DI_FROM_SDN, dv);
+ if (normalized != 0)
+ return 110;
+ date_str = print_date("Same date in Hebrew calendar", dv);
+ if (! date_str[0])
+ return 111;
+
+ dv->date1.cal = CAL_FRENCH_REV;
+ normalized = gedcom_normalize_date(DI_FROM_SDN, dv);
+ if (normalized == 0)
+ return 112;
+ date_str = print_date("Same date in French revolution calendar", dv);
+ if (date_str[0])
+ return 113;
+
+ dv->date1.cal = CAL_GREGORIAN;
+ dv->date1.day = 4;
+ dv->date1.month = 2;
+ dv->date1.year = 1799;
+ normalized = gedcom_normalize_date(DI_FROM_NUMBERS, dv);
+ if (normalized != 0)
+ return 114;
+ dv->date1.cal = CAL_FRENCH_REV;
+ normalized = gedcom_normalize_date(DI_FROM_SDN, dv);
+ if (normalized != 0)
+ return 115;
+ date_str = print_date("Valid French revolution date", dv);
+ if (! date_str[0])
+ return 116;
+
+ return 0;
+}
+
+int test_record_add_delete_functions()
+{
+ struct family* fam1;
+ struct individual* ind1;
+ struct multimedia* mm1;
+ struct note* note1;
+ struct repository* repo1;
+ struct source* sour1;
+ struct submitter* subm2;
+ struct submission* subn1;
+ struct user_rec* user1;
+ struct xref_value* xr;
+ int result;
+ char* value;
+ const char* new_nr_of_children = "3";
+ const char* note_text = "This is some text";
+
+ fam1 = gom_add_family("@FAM1@");
+ if (!fam1) return 201;
+
+ value = gom_set_string(&fam1->nr_of_children, new_nr_of_children);
+ if (value == NULL)
+ return 202;
+ if (strcmp(value, new_nr_of_children))
+ return 203;
+
+ ind1 = gom_add_individual("@FAM1@");
+ if (ind1) return 204;
+
+ ind1 = gom_add_individual("@IND1@");
+ if (!ind1) return 205;
+
+ mm1 = gom_add_multimedia("@OBJ1@");
+ if (!mm1) return 206;
+
+ note1 = gom_add_note("@NOTE1@");
+ if (!note1) return 207;
+
+ value = gom_set_string(¬e1->text, note_text);
+ if (value == NULL)
+ return 208;
+ if (strcmp(value, note_text))
+ return 209;
+
+ repo1 = gom_add_repository("@REPO1@");
+ if (!repo1) return 210;
+
+ sour1 = gom_add_source("@SOUR1@");
+ if (!sour1) return 211;
+
+ subm2 = gom_add_submitter("@SUBMITTER@");
+ if (subm2) return 212;
+
+ subm2 = gom_add_submitter("@SUBM2@");
+ if (!subm2) return 213;
+
+ subn1 = gom_add_submission("@SUBMISSION@");
+ if (!subn1) return 214;
+
+ user1 = gom_add_user_rec("@USER1@", "WRTAG");
+ if (user1) return 215;
+
+ user1 = gom_add_user_rec("@USER1@", "_TAG");
+ if (!user1) return 216;
+
+ xr = gom_make_individual_link(ind1);
+ if (!xr) return 217;
+
+ xr = gom_set_xref_value(&(fam1->husband), xr);
+ if (!xr) return 218;
+
+ output(0, "Intermediate output:\n");
+ show_data();
+
+ result = gom_delete_individual(ind1);
+ if (result == 0) return 251;
+
+ xr = gom_set_xref_value(&(fam1->husband), NULL);
+ if (xr) return 252;
+
+ result = gom_delete_individual(ind1);
+ if (result != 0) return 253;
+
+ result = gom_delete_family(fam1);
+ if (result != 0) return 250;
+
+ result = gom_delete_multimedia(mm1);
+ if (result != 0) return 254;
+
+ result = gom_delete_note(note1);
+ if (result != 0) return 255;
+
+ result = gom_delete_repository(repo1);
+ if (result != 0) return 256;
+
+ result = gom_delete_source(sour1);
+ if (result != 0) return 257;
+
+ result = gom_delete_submitter(subm2);
+ if (result != 0) return 258;
+
+ result = gom_delete_submission(subn1);
+ if (result != 0) return 259;
+
+ result = gom_delete_user_rec(user1);
+ if (result != 0) return 260;
+
+ return 0;
+}
+
int main(int argc, char* argv[])
{
int result;
result = gom_new_model();
if (result == 0)
result |= test_string_functions();
+ if (result == 0)
+ result |= test_date_functions();
+ if (result == 0)
+ result |= test_record_add_delete_functions();
if (result == 0) {
output(1, "Test succeeded\n");
}