Tests for moving xrefs in a list.

diff --git a/t/output/update_gom.ref b/t/output/update_gom.ref
index 17331adfbc23f3f9bb89d907f12fddd25ef7bdd4..46075ac79789689ac053efc4746586fad2c13ca8 100644 (file)
--- a/t/output/update_gom.ref
+++ b/t/output/update_gom.ref
@@ -166,6 +166,7 @@ Valid French revolution date:
 String: '@#DFRENCH R@ 16 PLUV 7'
 ERROR: Error: Cross-reference key '@FAM1@' is already in use
 ERROR: Error: Cross-reference key '@SUBMITTER@' is already in use
+WARNING: Warning: Could not move struct of type xref_list
 Intermediate output:
 === HEADER ===
 Source:

diff --git a/t/src/update_gom.c b/t/src/update_gom.c
index 87a65a1fd1a7f1dd987b55f171d36cc147ef8bd5..dc48749911cd7407bae90598aa93c9793f643f70 100644 (file)
--- a/t/src/update_gom.c
+++ b/t/src/update_gom.c
@@ -300,6 +300,18 @@ int test_record_add_delete_functions()
   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;