Force warning for some character sets.

diff --git a/t/output/write_gom_ansel.ged b/t/output/write_gom_ansel.ged
index d5fc9838a3b3b95efc1db1e5db8c7631f67fe782..b3ee385c89c83d9b610101607eb0191a20c1ef21 100644 (file)
--- a/t/output/write_gom_ansel.ged
+++ b/t/output/write_gom_ansel.ged
@@ -1,5 +1,5 @@
 0 HEAD
-1 CHAR ASCII
+1 CHAR ANSEL
 1 SOUR GEDCOM_PARSE
 2 VERS 0.20.0
 1 DATE 9 SEP 2001

diff --git a/t/output/write_gom_ansel.ref b/t/output/write_gom_ansel.ref
index 2fc8ba65e0b790d0fddb5afc0aac5602da78cd4c..196fe32c598f2f584e22d85e4ce4462cec1f5030 100644 (file)
--- a/t/output/write_gom_ansel.ref
+++ b/t/output/write_gom_ansel.ref
@@ -1 +1,2 @@
+WARNING: Warning on line 1: Forcing HEAD.CHAR value to 'ANSEL'
 Test succeeded

diff --git a/t/output/write_gom_uhlbomcl.ged b/t/output/write_gom_uhlbomcl.ged
index cc85a3ab79f3d374f569c0ec81d97f13a2cc5cee..3daf6a8070b321704175755307a618abb1faaeb0 100644 (file)
Binary files a/t/output/write_gom_uhlbomcl.ged and b/t/output/write_gom_uhlbomcl.ged differ

diff --git a/t/output/write_gom_uhlcl.ged b/t/output/write_gom_uhlcl.ged
index c47022d24046f54d3897d002c394b09746d46040..b4368e85e5bbda37a947b9ec62ada790d352c866 100644 (file)
Binary files a/t/output/write_gom_uhlcl.ged and b/t/output/write_gom_uhlcl.ged differ

diff --git a/t/output/write_gom_ulhbomcl.ged b/t/output/write_gom_ulhbomcl.ged
index f6df52f90a136d5b73761ff3620e567bf0cf0c41..06d9c3b51a3559d47ae040fa408e25374aa108ec 100644 (file)
Binary files a/t/output/write_gom_ulhbomcl.ged and b/t/output/write_gom_ulhbomcl.ged differ

diff --git a/t/output/write_gom_ulhc.ged b/t/output/write_gom_ulhc.ged
index 156c3dc170503941a5a97c14aa16bf7dcf4ecee8..81a48e6df770e2c4ae4e7c72528513ad33fa79cc 100644 (file)
Binary files a/t/output/write_gom_ulhc.ged and b/t/output/write_gom_ulhc.ged differ

diff --git a/t/output/write_gom_ulhcl.ged b/t/output/write_gom_ulhcl.ged
index 6a49e231989e4d41d3aa6b6b5930ae75cb442298..9010de8a904cacac39b5a1695eac9c6fa99a4af3 100644 (file)
Binary files a/t/output/write_gom_ulhcl.ged and b/t/output/write_gom_ulhcl.ged differ

diff --git a/t/output/write_gom_ulhl.ged b/t/output/write_gom_ulhl.ged
index 4f190de68b44648c2bff21fdab7bac4379de60a9..eef76fc8c0c978715cfbadb04a20947e0ed5f54c 100644 (file)
Binary files a/t/output/write_gom_ulhl.ged and b/t/output/write_gom_ulhl.ged differ

diff --git a/t/output/write_gom_ulhlc.ged b/t/output/write_gom_ulhlc.ged
index 06493c948e974f87dc1fdb9cf9f7c1d866428c86..8a8e0facda0496c1b7b553066244e35e026025f1 100644 (file)
Binary files a/t/output/write_gom_ulhlc.ged and b/t/output/write_gom_ulhlc.ged differ

diff --git a/t/src/gom_write.c b/t/src/gom_write.c
index 65aef2e597d3438f2568d269e511c76966b5bcf5..4bfeac5c5a93486074cab8b37cbc8a8da9049105 100644 (file)
--- a/t/src/gom_write.c
+++ b/t/src/gom_write.c
@@ -73,13 +73,12 @@ int update_header(char* encoding)
   if (head == NULL)
     return 1;
   else {
-    /*
-    value = gom_set_string(&head->charset.name, encoding);
-    if (value == NULL || strcmp(value, encoding))
-      return 1;
-    else
-      return 0;
-    */
+    /* force warning for anything except UNICODE */
+    if (!strcmp(encoding, "UNICODE")) {
+      value = gom_set_string(&head->charset.name, encoding);
+      if (value == NULL || strcmp(value, encoding))
+       return 1;
+    }
     value = gom_set_string(&head->note, long_note);
     if (value == NULL || strcmp(value, long_note))
       return 1;