From: Peter Verthez <Peter.Verthez@advalvas.be>
Date: Wed, 28 Aug 2002 16:23:03 +0000 (+0000)
Subject: Test for parsing age values.
X-Git-Url: https://git.dlugolecki.net.pl/?a=commitdiff_plain;h=5457efde5ac53ba360fbbf1c01991f2f4fa52978;p=gedcom-parse.git

Test for parsing age values.
---

diff --git a/t/standalone.c b/t/standalone.c
index f035d78..3f149c0 100644
--- a/t/standalone.c
+++ b/t/standalone.c
@@ -174,6 +174,24 @@ Gedcom_ctxt date_start(Gedcom_elt elt, Gedcom_ctxt parent, int level,
   return self;
 }
 
+Gedcom_ctxt age_start(Gedcom_elt elt, Gedcom_ctxt parent, int level,
+		      char *tag, char *raw_value,
+		      int tag_value, Gedcom_val parsed_value)
+{
+  struct age_value age;
+  Gedcom_ctxt self = (Gedcom_ctxt)((int) parent + 1000);
+  age = GEDCOM_AGE(parsed_value);
+  output(1, "Contents of the age_value:\n");
+  output(1, "  raw value: %s\n", raw_value);
+  output(1, "  type: %d\n", age.type);
+  output(1, "  modifier: %d\n", age.mod);
+  output(1, "  years: %d\n", age.years);
+  output(1, "  months: %d\n", age.months);
+  output(1, "  days: %d\n", age.days);
+  output(1, "  phrase: %s\n", age.phrase);
+  return self;
+}
+
 void default_cb(Gedcom_elt elt, Gedcom_ctxt ctxt, int level, char *tag,
 		char *raw_value, int tag_value)
 {
@@ -201,6 +219,7 @@ void subscribe_callbacks()
   gedcom_subscribe_to_element(ELT_SOUR_DATA_EVEN_DATE,
 			      date_start, NULL);
   gedcom_subscribe_to_element(ELT_SUB_EVT_DATE, date_start, NULL);
+  gedcom_subscribe_to_element(ELT_SUB_FAM_EVT_AGE, age_start, NULL);
 }
 
 void gedcom_message_handler(Gedcom_msg_type type, char *msg)