+int test_record_add_delete_functions()
+{
+ struct family* fam1;
+ struct individual *ind1, *ind2, *ind3, *ind4;
+ 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;
+ struct xref_list* xrl;
+ int result;
+ char* value;
+ const char* new_nr_of_children = "3";
+ const char* note_text = "This is some text";
+
+ fam1 = gom_new_family("@FAM1@");
+ if (!fam1) return 101;
+
+ value = gom_set_string(&fam1->nr_of_children, new_nr_of_children);
+ if (value == NULL)
+ return 102;
+ if (strcmp(value, new_nr_of_children))
+ return 103;
+
+ ind1 = gom_new_individual("@FAM1@");
+ if (ind1) return 104;
+
+ ind1 = gom_new_individual("@IND1@");
+ if (!ind1) return 105;
+
+ mm1 = gom_new_multimedia("@OBJ1@");
+ if (!mm1) return 106;
+
+ note1 = gom_new_note("@NOTE1@");
+ if (!note1) return 107;
+
+ value = gom_set_string(¬e1->text, note_text);
+ if (value == NULL)
+ return 108;
+ if (strcmp(value, note_text))
+ return 109;
+
+ repo1 = gom_new_repository("@REPO1@");
+ if (!repo1) return 110;
+
+ sour1 = gom_new_source("@SOUR1@");
+ if (!sour1) return 111;
+
+ subm2 = gom_new_submitter("@SUBMITTER@");
+ if (subm2) return 112;
+
+ subm2 = gom_new_submitter("@SUBM2@");
+ if (!subm2) return 113;
+
+ subn1 = gom_new_submission("@SUBMISSION@");
+ if (!subn1) return 114;
+
+ user1 = gom_new_user_rec("@USER1@", "WRTAG");
+ if (user1) return 115;
+
+ user1 = gom_new_user_rec("@USER1@", "_TAG");
+ if (!user1) return 116;
+
+ xr = gom_set_xref(&(fam1->husband), ind1->xrefstr);
+ if (!xr) return 118;
+
+ ind2 = gom_new_individual("@IND2@");
+ if (!ind2) return 119;
+
+ ind3 = gom_new_individual("@IND3@");
+ if (!ind3) return 120;
+
+ ind4 = gom_new_individual("@IND4@");
+ if (!ind4) return 121;
+
+ xrl = gom_add_xref(&(fam1->children), ind2->xrefstr);
+ if (!xrl) return 122;
+
+ xrl = gom_add_xref(&(fam1->children), ind3->xrefstr);
+ if (!xrl) return 123;
+
+ xrl = gom_add_xref(&(fam1->children), ind4->xrefstr);
+ if (!xrl) return 124;
+
+ result = gom_move_xref(MOVE_UP, &(fam1->children), ind4->xrefstr);
+ if (result != 0) return 127;
+
+ result = gom_move_xref(MOVE_UP, &(fam1->children), ind4->xrefstr);
+ if (result != 0) return 128;
+
+ result = gom_move_xref(MOVE_UP, &(fam1->children), ind4->xrefstr);
+ if (result != 0) return 129;
+
+ result = gom_move_xref(MOVE_DOWN, &(fam1->children), ind4->xrefstr);
+ if (result != 0) return 130;
+
+ result = gom_remove_xref(&(fam1->children), ind3->xrefstr);
+ if (result != 0) return 125;
+
+ result = gom_remove_xref(&(fam1->children), ind4->xrefstr);
+ if (result != 0) return 126;
+
+ output(1, "Intermediate output:\n");
+ show_data();
+
+ result = gom_delete_individual(ind1);
+ if (result == 0) return 150;
+
+ xr = gom_set_xref(&(fam1->husband), NULL);
+ if (xr) return 151;
+
+ result = gom_delete_individual(ind1);
+ if (result != 0) return 152;
+
+ result = gom_delete_family(fam1);
+ if (result != 0) return 153;
+
+ result = gom_delete_individual(ind2);
+ if (result != 0) return 154;
+
+ result = gom_delete_multimedia(mm1);
+ if (result != 0) return 155;
+
+ result = gom_delete_note(note1);
+ if (result != 0) return 156;
+
+ result = gom_delete_repository(repo1);
+ if (result != 0) return 157;
+
+ result = gom_delete_source(sour1);
+ if (result != 0) return 158;
+
+ result = gom_delete_submitter(subm2);
+ if (result != 0) return 159;
+
+ result = gom_delete_submission(subn1);
+ if (result != 0) return 160;
+
+ result = gom_delete_user_rec(user1);
+ if (result != 0) return 161;
+
+ return 0;
+}
+