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); }