LIBSBML_CPP_NAMESPACE_USE
CK_CPPSTART
#endif
START_TEST (test_ModelCreator_setFamilyName)
{
ModelCreator_t * mc = ModelCreator_create();
fail_unless(mc != NULL);
int i = ModelCreator_setFamilyName(mc, "Keating");
fail_unless( i == LIBSBML_OPERATION_SUCCESS );
fail_unless(ModelCreator_isSetFamilyName(mc) == 1);
fail_unless(!strcmp(ModelCreator_getFamilyName(mc), "Keating"));
i = ModelCreator_setFamilyName(mc, "");
fail_unless( i == LIBSBML_OPERATION_SUCCESS );
fail_unless(ModelCreator_isSetFamilyName(mc) == 0);
i = ModelCreator_setFamilyName(mc, "Keating");
fail_unless(ModelCreator_isSetFamilyName(mc) == 1);
i = ModelCreator_unsetFamilyName(mc);
fail_unless( i == LIBSBML_OPERATION_SUCCESS );
fail_unless(ModelCreator_isSetFamilyName(mc) == 0);
ModelCreator_free(mc);
}
END_TEST
START_TEST (test_ModelCreator_accessWithNULL)
{
fail_unless( ModelCreator_clone(NULL) == NULL );
fail_unless( ModelCreator_createFromNode(NULL) == NULL );
ModelCreator_free(NULL);
fail_unless( ModelCreator_getEmail(NULL) == NULL );
fail_unless( ModelCreator_getFamilyName(NULL) == NULL );
fail_unless( ModelCreator_getGivenName(NULL) == NULL );
fail_unless( ModelCreator_getOrganisation(NULL) == NULL );
fail_unless( ModelCreator_getOrganization(NULL) == NULL );
fail_unless( ModelCreator_hasRequiredAttributes(NULL) == 0 );
fail_unless( ModelCreator_isSetEmail(NULL) == 0 );
fail_unless( ModelCreator_isSetFamilyName(NULL) == 0 );
fail_unless( ModelCreator_isSetGivenName(NULL) == 0 );
fail_unless( ModelCreator_isSetOrganisation(NULL) == 0 );
fail_unless( ModelCreator_isSetOrganization(NULL) == 0 );
fail_unless( ModelCreator_setEmail(NULL, NULL) == LIBSBML_INVALID_OBJECT );
fail_unless( ModelCreator_setFamilyName(NULL, NULL) == LIBSBML_INVALID_OBJECT );
fail_unless( ModelCreator_setGivenName(NULL, NULL) == LIBSBML_INVALID_OBJECT );
fail_unless( ModelCreator_setOrganisation(NULL, NULL) == LIBSBML_INVALID_OBJECT );
fail_unless( ModelCreator_setOrganization(NULL, NULL) == LIBSBML_INVALID_OBJECT );
fail_unless( ModelCreator_unsetEmail(NULL) == LIBSBML_INVALID_OBJECT );
fail_unless( ModelCreator_unsetFamilyName(NULL) == LIBSBML_INVALID_OBJECT );
fail_unless( ModelCreator_unsetGivenName(NULL) == LIBSBML_INVALID_OBJECT );
fail_unless( ModelCreator_unsetOrganisation(NULL) == LIBSBML_INVALID_OBJECT );
fail_unless( ModelCreator_unsetOrganization(NULL) == LIBSBML_INVALID_OBJECT );
}
END_TEST
START_TEST (test_ModelHistory_addCreator)
{
ModelCreator_t * newMC;
ModelHistory_t * history = ModelHistory_create();
fail_unless(ModelHistory_getNumCreators(history) == 0);
fail_unless(history != NULL);
ModelCreator_t * mc = ModelCreator_create();
fail_unless(mc != NULL);
ModelCreator_setFamilyName(mc, "Keating");
ModelCreator_setGivenName(mc, "Sarah");
ModelCreator_setEmail(mc, "*****@*****.**");
ModelCreator_setOrganisation(mc, "UH");
ModelHistory_addCreator(history, mc);
fail_unless(ModelHistory_getNumCreators(history) == 1);
ModelCreator_free(mc);
newMC = (ModelCreator_t*) List_get(ModelHistory_getListCreators(history), 0);
fail_unless(newMC != NULL);
fail_unless(!strcmp(ModelCreator_getFamilyName(newMC), "Keating"));
fail_unless(!strcmp(ModelCreator_getGivenName(newMC), "Sarah"));
fail_unless(!strcmp(ModelCreator_getEmail(newMC), "*****@*****.**"));
fail_unless(!strcmp(ModelCreator_getOrganisation(newMC), "UH"));
ModelHistory_free(history);
}
END_TEST
START_TEST(test_ModelCreator_setters)
{
ModelCreator_t * mc = ModelCreator_create();
fail_unless(mc != NULL);
fail_unless(ModelCreator_isSetFamilyName(mc) == 0);
fail_unless(ModelCreator_isSetGivenName(mc) == 0);
fail_unless(ModelCreator_isSetEmail(mc) == 0);
fail_unless(ModelCreator_isSetOrganisation(mc) == 0);
ModelCreator_setFamilyName(mc, "Keating");
ModelCreator_setGivenName(mc, "Sarah");
ModelCreator_setEmail(mc, "*****@*****.**");
ModelCreator_setOrganisation(mc, "UH");
fail_unless(!strcmp(ModelCreator_getFamilyName(mc), "Keating"));
fail_unless(!strcmp(ModelCreator_getGivenName(mc), "Sarah"));
fail_unless(!strcmp(ModelCreator_getEmail(mc), "*****@*****.**"));
fail_unless(!strcmp(ModelCreator_getOrganisation(mc), "UH"));
fail_unless(ModelCreator_isSetFamilyName(mc) == 1);
fail_unless(ModelCreator_isSetGivenName(mc) == 1);
fail_unless(ModelCreator_isSetEmail(mc) == 1);
fail_unless(ModelCreator_isSetOrganisation(mc) == 1);
ModelCreator_unsetFamilyName(mc);
ModelCreator_unsetGivenName(mc);
ModelCreator_unsetEmail(mc);
ModelCreator_unsetOrganisation(mc);
fail_unless(!strcmp(ModelCreator_getFamilyName(mc), ""));
fail_unless(!strcmp(ModelCreator_getGivenName(mc), ""));
fail_unless(!strcmp(ModelCreator_getEmail(mc), ""));
fail_unless(!strcmp(ModelCreator_getOrganisation(mc), ""));
fail_unless(ModelCreator_isSetFamilyName(mc) == 0);
fail_unless(ModelCreator_isSetGivenName(mc) == 0);
fail_unless(ModelCreator_isSetEmail(mc) == 0);
fail_unless(ModelCreator_isSetOrganisation(mc) == 0);
// test alternate spelling functions
fail_unless(ModelCreator_isSetOrganization(mc) == 0);
ModelCreator_setOrganization(mc, "UH");
fail_unless(!strcmp(ModelCreator_getOrganization(mc), "UH"));
fail_unless(ModelCreator_isSetOrganization(mc) == 1);
ModelCreator_unsetOrganisation(mc);
fail_unless(!strcmp(ModelCreator_getOrganization(mc), ""));
fail_unless(ModelCreator_isSetOrganization(mc) == 0);
ModelCreator_free(mc);
}
END_TEST
START_TEST (test_ModelHistory_addCreator1)
{
ModelHistory_t * mh = ModelHistory_create();
ModelCreator_t * mc = ModelCreator_create();
ModelCreator_setFamilyName(mc, "Keating");
ModelCreator_setGivenName(mc, "Sarah");
int i = ModelHistory_addCreator(mh, mc);
fail_unless( i == LIBSBML_OPERATION_SUCCESS );
fail_unless(ModelHistory_getNumCreators(mh) == 1);
ModelCreator_free(mc);
ModelHistory_free(mh);
}
END_TEST
START_TEST (test_L3_Species_ModelHistory)
{
ModelHistory_t * history = ModelHistory_create();
SBase_setMetaId((SBase_t *)(S), "_3");
int i = SBase_setModelHistory((SBase_t *)(S), history);
fail_unless( i == LIBSBML_INVALID_OBJECT );
fail_unless( !SBase_isSetModelHistory((SBase_t *)(S)) );
ModelCreator_t * mc = ModelCreator_create();
Date_t * date =
Date_createFromValues(2005, 12, 30, 12, 15, 45, 1, 2, 0);
ModelCreator_setFamilyName(mc, "Keating");
ModelCreator_setGivenName(mc, "Sarah");
ModelCreator_setEmail(mc, "*****@*****.**");
ModelCreator_setOrganisation(mc, "UH");
ModelHistory_addCreator(history, mc);
ModelHistory_setCreatedDate(history, date);
ModelHistory_setModifiedDate(history, date);
i = SBase_setModelHistory((SBase_t *)(S), history);
fail_unless( i == LIBSBML_OPERATION_SUCCESS );
fail_unless( SBase_isSetModelHistory((SBase_t *)(S)) );
i = SBase_unsetModelHistory((SBase_t *)(S));
fail_unless( i == LIBSBML_OPERATION_SUCCESS );
fail_unless( !SBase_isSetModelHistory((SBase_t *)(S)) );
fail_unless( SBase_getModelHistory((SBase_t *)(S)) == NULL );
ModelHistory_free(history);
ModelCreator_free(mc);
Date_free(date);
}
int
main (int argc, char *argv[])
{
SBMLDocument_t* d;
Model_t* m;
unsigned int errors;
if (argc != 3)
{
printf("\n"
" usage: addModelHistory <input-filename> <output-filename>\n"
"\n");
return 2;
}
d = readSBML(argv[1]);
errors = SBMLDocument_getNumErrors(d);
if (errors > 0)
{
printf("Read Error(s):\n");
SBMLDocument_printErrors(d, stdout);
printf("Correct the above and re-run.\n");
}
else
{
int status;
Date_t* date, *date2;
ModelHistory_t* h = ModelHistory_create();
ModelCreator_t* c = ModelCreator_create();
ModelCreator_setFamilyName(c, "Keating");
ModelCreator_setGivenName(c, "Sarah");
ModelCreator_setEmail(c, "*****@*****.**");
ModelCreator_setOrganisation(c, "University of Hertfordshire");
status = ModelHistory_addCreator(h, c);
printStatus("Status for addCreator: ", status);
date = Date_createFromString("1999-11-13T06:54:32");
date2 = Date_createFromString("2007-11-30T06:54:00-02:00");
status = ModelHistory_setCreatedDate(h, date);
printStatus("Set created date: ", status);
status = ModelHistory_setModifiedDate(h, date2);
printStatus("Set modified date: ", status);
m = SBMLDocument_getModel(d);
status = Model_setModelHistory(m, h);
printStatus("Set model history: ", status);
writeSBML(d, argv[2]);
}
SBMLDocument_free(d);
return errors;
}
