END_TEST
START_TEST (test_SBMLDocument_setLevelAndVersion_UnitsError)
{
SBMLDocument_t *d = SBMLDocument_create();
SBMLDocument_setLevelAndVersionNonStrict(d, 2, 4);
Model_t *m1 = SBMLDocument_createModel(d);
Compartment_t *c = Model_createCompartment(m1);
Compartment_setId(c, "c");
Parameter_t *p = Model_createParameter(m1);
Parameter_setId(p, "p");
Parameter_setUnits(p, "mole");
Rule_t * r = Model_createAssignmentRule(m1);
Rule_setVariable(r, "c");
Rule_setFormula(r, "p*p");
fail_unless(SBMLDocument_setLevelAndVersionNonStrict(d,2,2) == 1);
fail_unless(SBMLDocument_setLevelAndVersionNonStrict(d,2,3) == 1);
fail_unless(SBMLDocument_setLevelAndVersionNonStrict(d,1,2) == 1);
fail_unless(SBMLDocument_setLevelAndVersionNonStrict(d,1,1) == 0);
SBMLDocument_free(d);
}
END_TEST
START_TEST (test_SBMLDocument_setLevelAndVersion_Error)
{
SBMLDocument_t *d = SBMLDocument_create();
SBMLDocument_setLevelAndVersion(d, 2, 1);
Model_t *m1 = Model_create(2, 1);
/* add unitDefinition */
Unit_t * u = Unit_create(2, 1);
Unit_setKind(u, UnitKind_forName("mole"));
Unit_setOffset(u, 3.2);
UnitDefinition_t *ud =
UnitDefinition_create(2, 1);
UnitDefinition_setId(ud, "ud");
UnitDefinition_addUnit(ud, u);
Model_addUnitDefinition(m1, ud);
SBMLDocument_setModel(d, m1);
fail_unless(SBMLDocument_setLevelAndVersionStrict(d,2,2) == 0);
fail_unless(SBMLDocument_setLevelAndVersionStrict(d,2,3) == 0);
fail_unless(SBMLDocument_setLevelAndVersionStrict(d,1,2) == 0);
fail_unless(SBMLDocument_setLevelAndVersionStrict(d,1,1) == 0);
SBMLDocument_free(d);
}
void printODEsToSBML(Model_t *ode, FILE *f)
{
SBMLDocument_t *d;
char *model;
d = SBMLDocument_create();
SBMLDocument_setModel(d, ode);
model = writeSBMLToString(d);
fprintf(f, "%s", model);
free(model);
}
static SBMLDocument_t *
rsbml_build_doc(SEXP r_doc)
{
SBMLDocument_t *doc;
doc = SBMLDocument_create();
SET_ATTR(SBMLDocument, doc, Level, level, INTEGER);
SET_ATTR(SBMLDocument, doc, Version, ver, INTEGER);
SBMLDocument_setModel(doc, rsbml_build_doc_model(GET_SLOT(r_doc, install("model"))));
return doc;
}
LIBSBML_CPP_NAMESPACE_USE
BEGIN_C_DECLS
START_TEST (test_SBMLDocument_create)
{
SBMLDocument_t *d = SBMLDocument_create();
fail_unless( SBase_getTypeCode ((SBase_t *) d) == SBML_DOCUMENT );
fail_unless( SBase_getNotes ((SBase_t *) d) == NULL );
fail_unless( SBase_getAnnotation((SBase_t *) d) == NULL );
fail_unless( SBMLDocument_getLevel (d) == 3);
fail_unless( SBMLDocument_getVersion(d) == 1);
fail_unless( SBMLDocument_getNumErrors (d) == 0 );
SBMLDocument_free(d);
}
