END_TEST
START_TEST (test_Validation_ModelHistory3)
{
ModelHistory * mh = new ModelHistory();
fail_unless(mh != NULL);
fail_unless (!(mh->hasRequiredAttributes()));
Date * date = new Date(2007, 12, 30, 12, 15, 45, 1, 2, 0);
mh->setCreatedDate(date);
fail_unless (!(mh->hasRequiredAttributes()));
mh->setModifiedDate(date);
fail_unless (!(mh->hasRequiredAttributes()));
ModelCreator * mc = new ModelCreator();
mc->setFamilyName("Keating");
mh->addCreator(mc);
fail_unless (!(mh->hasRequiredAttributes()));
delete mh;
}
END_TEST
START_TEST ( test_ModelHistory_copyConstructor )
{
ModelHistory * mh = new ModelHistory();
ModelCreator *mc = new ModelCreator();
mc->setFamilyName("Keating");
mc->setGivenName("Sarah");
mc->setEmail("*****@*****.**");
mh->addCreator(mc);
delete mc;
Date * date = new Date(2005, 12, 30, 12, 15, 45, 1, 2, 0);
mh->setCreatedDate(date);
delete date;
fail_unless(mh->getCreatedDate()->getMonth() == 12);
fail_unless(mh->getCreatedDate()->getSecond() == 45);
fail_unless(static_cast <ModelCreator*>
(mh->getListCreators()->get(0))->getFamilyName() == "Keating");
ModelHistory* mh2=new ModelHistory(*mh);
fail_unless(mh2->getCreatedDate()->getMonth() == 12);
fail_unless(mh2->getCreatedDate()->getSecond() == 45);
fail_unless(static_cast <ModelCreator*>(mh2->getListCreators()->get(0))->getFamilyName() == "Keating");
delete mh2;
delete mh;
}
int
main (int argc, char *argv[])
{
SBMLDocument* d;
unsigned int errors;
if (argc != 3)
{
cout << endl
<< " usage: addModelHistory <input-filename> <output-filename>" << endl
<< endl;
return 2;
}
d = readSBML(argv[1]);
errors = d->getNumErrors();
if (errors > 0)
{
cout << "Read Error(s):" << endl;
d->printErrors(cout);
cout << "Correct the above and re-run." << endl;
}
else
{
ModelHistory * h = new ModelHistory();
ModelCreator *c = new ModelCreator();
c->setFamilyName("Keating");
c->setGivenName("Sarah");
c->setEmail("*****@*****.**");
c->setOrganization("University of Hertfordshire");
int status = h->addCreator(c);
printStatus("Status for addCreator: ", status);
Date * date = new Date("1999-11-13T06:54:32");
Date * date2 = new Date("2007-11-30T06:54:00-02:00");
status = h->setCreatedDate(date);
printStatus("Set created date: ", status);
status = h->setModifiedDate(date2);
printStatus("Set modified date: ", status);
status = d->getModel()->setModelHistory(h);
printStatus("Set model history: ", status);
writeSBML(d, argv[2]);
}
delete d;
return errors;
}
END_TEST
START_TEST (test_RDFAnnotation2_modelWithHistoryAndMultipleModifiedDates)
{
ModelHistory * h = new ModelHistory();
ModelCreator *c = new ModelCreator();
c->setFamilyName("Keating");
c->setGivenName("Sarah");
h->addCreator(c);
Date * d = new Date(2005, 2, 2, 14, 56, 11);
h->setCreatedDate(d);
h->addModifiedDate(d);
h->addModifiedDate(d);
m2->unsetModelHistory();
m2->setModelHistory(h);
XMLNode *ann = RDFAnnotationParser::parseModelHistory(m2);
const char * expected =
"<annotation>\n"
" <rdf:RDF xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\" xmlns:dc=\"http://purl.org/dc/elements/1.1/\" xmlns:dcterms=\"http://purl.org/dc/terms/\" xmlns:vCard=\"http://www.w3.org/2001/vcard-rdf/3.0#\" xmlns:bqbiol=\"http://biomodels.net/biology-qualifiers/\" xmlns:bqmodel=\"http://biomodels.net/model-qualifiers/\">\n"
" <rdf:Description rdf:about=\"#_000001\">\n"
" <dc:creator rdf:parseType=\"Resource\">\n"
" <rdf:Bag>\n"
" <rdf:li rdf:parseType=\"Resource\">\n"
" <vCard:N rdf:parseType=\"Resource\">\n"
" <vCard:Family>Keating</vCard:Family>\n"
" <vCard:Given>Sarah</vCard:Given>\n"
" </vCard:N>\n"
" </rdf:li>\n"
" </rdf:Bag>\n"
" </dc:creator>\n"
" <dcterms:created rdf:parseType=\"Resource\">\n"
" <dcterms:W3CDTF>2005-02-02T14:56:11Z</dcterms:W3CDTF>\n"
" </dcterms:created>\n"
" <dcterms:modified rdf:parseType=\"Resource\">\n"
" <dcterms:W3CDTF>2005-02-02T14:56:11Z</dcterms:W3CDTF>\n"
" </dcterms:modified>\n"
" <dcterms:modified rdf:parseType=\"Resource\">\n"
" <dcterms:W3CDTF>2005-02-02T14:56:11Z</dcterms:W3CDTF>\n"
" </dcterms:modified>\n"
" </rdf:Description>\n"
" </rdf:RDF>\n"
"</annotation>";
fail_unless( equals(expected, ann->toXMLString().c_str()) );
delete c;
delete d;
delete h;
delete ann;
}
ModelHistory*
RDFAnnotationParser::parseRDFAnnotation(const XMLNode * annotation)
{
const string& name = annotation->getName();
const XMLNode* RDFTop = NULL;
ModelHistory * history = NULL;
ModelCreator* creator = NULL;
Date * modified = NULL;
Date * created = NULL;
unsigned int n = 0;
// need to find the RDF description opening annotation
if (!name.empty())
{
if (name == "annotation" && annotation->getNumChildren() > 0)
{
while (n < annotation->getNumChildren())
{
const string &name1 = annotation->getChild(n).getName();
if (!name1.empty())
{
if (name1 == "RDF")
{
if (annotation->getChild(n).getNumChildren() > 0)
{
RDFTop = &(annotation->getChild(n).getChild(0));
break;
}
}
}
n++;
}
}
}
// find creation nodes and create history
n = 0;
if (RDFTop)
{
history = new ModelHistory();
while (n < RDFTop->getNumChildren())
{
const string &prefix = RDFTop->getChild(n).getPrefix();
if (!prefix.empty())
{
if (prefix == "dc")
{
// this should be the Bag node containing the list of creators
const XMLNode *creatorNode = &(RDFTop->getChild(n).getChild(0));
for (unsigned int c = 0; c < creatorNode->getNumChildren(); c++)
{
creator = new ModelCreator(creatorNode->getChild(c));
history->addCreator(creator);
delete creator;
}
}
else if (prefix == "dcterms")
{
const string &name2 = RDFTop->getChild(n).getName();
if (!name2.empty())
{
if (RDFTop->getChild(n).getNumChildren() > 0
&& RDFTop->getChild(n).getChild(0).getNumChildren() > 0)
{
if (name2 == "created")
{
created = new Date(RDFTop->getChild(n).getChild(0).
getChild(0).getCharacters());
history->setCreatedDate(created);
delete created;
}
else if (name2 == "modified")
{
modified = new Date(RDFTop->getChild(n).getChild(0).
getChild(0).getCharacters());
history->addModifiedDate(modified);
delete modified;
}
}
}
}
}
n++;
}
}
return history;
}
END_TEST
START_TEST (test_RDFAnnotation2_modelWithHistoryAndCVTerms)
{
ModelHistory * h = new ModelHistory();
ModelCreator *c = new ModelCreator();
c->setFamilyName("Keating");
c->setGivenName("Sarah");
h->addCreator(c);
Date *d = new Date(2008, 11, 17, 18, 37, 0, 0, 0, 0);
h->setCreatedDate(d);
h->setModifiedDate(d);
m2->unsetModelHistory();
m2->setModelHistory(h);
CVTerm *cv = new CVTerm();
cv->setQualifierType(BIOLOGICAL_QUALIFIER);
cv->setBiologicalQualifierType(BQB_IS_VERSION_OF);
cv->addResource("http://www.geneontology.org/#GO:0005892");
m2->addCVTerm(cv);
XMLNode *ann = RDFAnnotationParser::parseModelHistory(m2);
const char * expected =
"<annotation>\n"
" <rdf:RDF xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\" xmlns:dc=\"http://purl.org/dc/elements/1.1/\" xmlns:dcterms=\"http://purl.org/dc/terms/\" xmlns:vCard=\"http://www.w3.org/2001/vcard-rdf/3.0#\" xmlns:bqbiol=\"http://biomodels.net/biology-qualifiers/\" xmlns:bqmodel=\"http://biomodels.net/model-qualifiers/\">\n"
" <rdf:Description rdf:about=\"#_000001\">\n"
" <dc:creator rdf:parseType=\"Resource\">\n"
" <rdf:Bag>\n"
" <rdf:li rdf:parseType=\"Resource\">\n"
" <vCard:N rdf:parseType=\"Resource\">\n"
" <vCard:Family>Keating</vCard:Family>\n"
" <vCard:Given>Sarah</vCard:Given>\n"
" </vCard:N>\n"
" </rdf:li>\n"
" </rdf:Bag>\n"
" </dc:creator>\n"
" <dcterms:created rdf:parseType=\"Resource\">\n"
" <dcterms:W3CDTF>2008-11-17T18:37:00Z</dcterms:W3CDTF>\n"
" </dcterms:created>\n"
" <dcterms:modified rdf:parseType=\"Resource\">\n"
" <dcterms:W3CDTF>2008-11-17T18:37:00Z</dcterms:W3CDTF>\n"
" </dcterms:modified>\n"
" <bqbiol:isVersionOf>\n"
" <rdf:Bag>\n"
" <rdf:li rdf:resource=\"http://www.geneontology.org/#GO:0005892\"/>\n"
" </rdf:Bag>\n"
" </bqbiol:isVersionOf>\n"
" </rdf:Description>\n"
" </rdf:RDF>\n"
"</annotation>";
if (ann != NULL)
{
fail_unless( equals(expected, ann->toXMLString().c_str()) );
}
else
{
fail("parseModelHistory failed");
}
}
ModelHistory*
RDFAnnotationParser::deriveHistoryFromAnnotation(
const XMLNode * annotation)
{
ModelHistory * history = NULL;
if (annotation == NULL)
return history;
// the annotation passed in may have a toplevel annotation tag BUT
// it may not be- so need to check
// if it isnt then it must be RDF or we do not have an rdf annotation
bool topLevelIsAnnotation = false;
if (annotation->getName() == "annotation")
{
topLevelIsAnnotation = true;
}
const XMLNode* RDFDesc = NULL;
if (topLevelIsAnnotation == true)
{
RDFDesc = &(annotation->getChild("RDF").getChild("Description"));
}
else
{
if (annotation->getName() == "RDF")
{
RDFDesc = &(annotation->getChild("Description"));
}
}
ModelCreator* creator = NULL;
Date * modified = NULL;
Date * created = NULL;
static const XMLNode outOfRange;
// find creation nodes and create history
if (RDFDesc != NULL)
{
history = new ModelHistory();
const XMLNode *creatorNode = &(RDFDesc->getChild("creator").getChild("Bag"));
if (creatorNode->equals(outOfRange) == false)
{
for (unsigned int c = 0; c < creatorNode->getNumChildren(); c++)
{
creator = new ModelCreator(creatorNode->getChild(c));
history->addCreator(creator);
delete creator;
}
}
const XMLNode *createdNode = &(RDFDesc->getChild("created").getChild("W3CDTF"));
if (createdNode->equals(outOfRange) == false)
{
if (createdNode->getChild(0).isText() == true)
{
created = new Date(createdNode->getChild(0).getCharacters());
history->setCreatedDate(created);
delete created;
}
}
/* there are possibly more than one modified elements */
for (unsigned int n = 0; n < RDFDesc->getNumChildren(); n++)
{
if (RDFDesc->getChild(n).getName() == "modified")
{
const XMLNode *modifiedNode = &(RDFDesc->getChild(n).getChild("W3CDTF"));
if (modifiedNode->equals(outOfRange) == false)
{
if (modifiedNode->getChild(0).isText() == true)
{
modified = new Date(modifiedNode->getChild(0).getCharacters());
history->addModifiedDate(modified);
delete modified;
}
}
}
}
history->resetModifiedFlags();
}
return history;
}