END_TEST
START_TEST (test_Reaction_getProduct)
{
SpeciesReference_t *sr1 = SpeciesReference_create(2, 4);
SpeciesReference_t *sr2 = SpeciesReference_create(2, 4);
SpeciesReference_setSpecies(sr1, "P1");
SpeciesReference_setSpecies(sr2, "P2");
Reaction_addProduct(R, sr1);
Reaction_addProduct(R, sr2);
SpeciesReference_free(sr1);
SpeciesReference_free(sr2);
fail_unless( Reaction_getNumReactants(R) == 0 );
fail_unless( Reaction_getNumProducts (R) == 2 );
fail_unless( Reaction_getNumModifiers(R) == 0 );
sr1 = Reaction_getProduct(R, 0);
sr2 = Reaction_getProduct(R, 1);
fail_unless( !strcmp(SpeciesReference_getSpecies(sr1), "P1") );
fail_unless( !strcmp(SpeciesReference_getSpecies(sr2), "P2") );
}
END_TEST
START_TEST (test_Reaction_addProduct1)
{
Reaction_t *m = Reaction_create(2, 2);
SpeciesReference_t *p
= SpeciesReference_create(2, 2);
SpeciesReference_t *p1
= SpeciesReference_create(2, 2);
SpeciesReference_setSpecies(p1, "k");
SpeciesReference_setId(p1, "k1");
int i = Reaction_addProduct(m, p);
fail_unless( i == LIBSBML_INVALID_OBJECT);
SpeciesReference_setSpecies(p, "k");
SpeciesReference_setId(p, "k1");
i = Reaction_addProduct(m, p);
fail_unless( i == LIBSBML_OPERATION_SUCCESS);
fail_unless( Reaction_getNumProducts(m) == 1);
i = Reaction_addProduct(m, p1);
fail_unless( i == LIBSBML_DUPLICATE_OBJECT_ID);
fail_unless( Reaction_getNumProducts(m) == 1);
SpeciesReference_free(p);
SpeciesReference_free(p1);
Reaction_free(m);
}
END_TEST
START_TEST (test_Reaction_getProductById)
{
SpeciesReference_t *sr1 = SpeciesReference_create(2, 4);
SpeciesReference_setSpecies(sr1, "P1");
SpeciesReference_t *sr2 = SpeciesReference_create(2, 4);
SpeciesReference_setSpecies(sr2, "P1");
Reaction_addProduct(R, sr1);
Reaction_addProduct(R, sr2);
fail_unless( Reaction_getNumReactants(R) == 0 );
fail_unless( Reaction_getNumProducts (R) == 2 );
fail_unless( Reaction_getNumModifiers(R) == 0 );
fail_unless( Reaction_getProductBySpecies(R, "P1") != sr1 );
fail_unless( Reaction_getProductBySpecies(R, "P2") != sr2 );
fail_unless( Reaction_getProductBySpecies(R, "P3") == NULL );
SpeciesReference_free(sr1);
SpeciesReference_free(sr2);
}
END_TEST
START_TEST (test_SpeciesReference_setStoichiometryMath5)
{
SpeciesReference_t *sr1 =
SpeciesReference_create(1, 2);
StoichiometryMath_t * sm = StoichiometryMath_create(2, 4);
ASTNode_t *math = ASTNode_createWithType(AST_TIMES);
ASTNode_t *a = ASTNode_create();
ASTNode_t *b = ASTNode_create();
ASTNode_setName(a, "a");
ASTNode_setName(b, "b");
ASTNode_addChild(math, a);
ASTNode_addChild(math, b);
StoichiometryMath_setMath(sm, math);
int i = SpeciesReference_setStoichiometryMath(sr1, sm);
fail_unless( i == LIBSBML_UNEXPECTED_ATTRIBUTE);
fail_unless( !SpeciesReference_isSetStoichiometryMath(sr1) );
StoichiometryMath_free(sm);
SpeciesReference_free(sr1);
}
void
L3SpeciesReferenceTest_setup (void)
{
SR = SpeciesReference_create(3, 1);
if (SR == NULL)
{
fail("SpeciesReference_create(3, 1) returned a NULL pointer.");
}
}
void
SpeciesReferenceTest1_setup (void)
{
sr = SpeciesReference_create(2, 4);
if (sr == NULL)
{
fail("SpeciesReference_create() returned a NULL pointer.");
}
}
END_TEST
START_TEST (test_SpeciesReference_setName3)
{
SpeciesReference_t *c =
SpeciesReference_create(2, 1);
int i = SpeciesReference_setName(c, "cell");
fail_unless( i == LIBSBML_UNEXPECTED_ATTRIBUTE );
fail_unless( !SpeciesReference_isSetName(c) );
SpeciesReference_free(c);
}
END_TEST
START_TEST (test_Reaction_addReactant)
{
SpeciesReference_t *sr = SpeciesReference_create(2, 4);
SpeciesReference_setSpecies(sr, "s");
Reaction_addReactant(R, sr);
fail_unless( Reaction_getNumReactants(R) == 1 );
fail_unless( Reaction_getNumProducts (R) == 0 );
fail_unless( Reaction_getNumModifiers(R) == 0 );
SpeciesReference_free(sr);
}
END_TEST
START_TEST (test_SpeciesReference_setSpecies2)
{
SpeciesReference_t *c =
SpeciesReference_create(2, 2);
int i = SpeciesReference_setSpecies(c, "1cell");
fail_unless( i == LIBSBML_INVALID_ATTRIBUTE_VALUE );
fail_unless( !SpeciesReference_isSetSpecies(c) );
SpeciesReference_free(c);
}
END_TEST
START_TEST (test_SpeciesReference_setDenominator2)
{
SpeciesReference_t *c =
SpeciesReference_create(2, 2);
int i = SpeciesReference_setDenominator(c, 4);
fail_unless( i == LIBSBML_OPERATION_SUCCESS );
fail_unless( SpeciesReference_getDenominator(c) == 4 );
SpeciesReference_free(c);
}
END_TEST
START_TEST (test_SpeciesReference_setStoichiometry2)
{
SpeciesReference_t *c =
SpeciesReference_create(2, 2);
int i = SpeciesReference_setStoichiometry(c, 4);
fail_unless( i == LIBSBML_OPERATION_SUCCESS );
fail_unless( SpeciesReference_getStoichiometry(c) == 4.0 );
SpeciesReference_free(c);
}
END_TEST
START_TEST (test_SpeciesReference_setSpecies3)
{
SpeciesReference_t *c =
SpeciesReference_create(2, 2);
int i = SpeciesReference_setSpecies(c, "mole");
fail_unless( i == LIBSBML_OPERATION_SUCCESS );
fail_unless( !strcmp(SpeciesReference_getSpecies(c), "mole") );
fail_unless( SpeciesReference_isSetSpecies(c) );
SpeciesReference_free(c);
}
END_TEST
START_TEST (test_Reaction_addReactant2)
{
Reaction_t *m = Reaction_create(2, 2);
SpeciesReference_t *p
= SpeciesReference_create(2, 1);
SpeciesReference_setSpecies(p, "k");
int i = Reaction_addReactant(m, p);
fail_unless( i == LIBSBML_VERSION_MISMATCH);
fail_unless( Reaction_getNumReactants(m) == 0);
SpeciesReference_free(p);
Reaction_free(m);
}
END_TEST
START_TEST (test_Reaction_addProduct3)
{
Reaction_t *m = Reaction_create(2, 2);
SpeciesReference_t *p
= SpeciesReference_create(1, 2);
SpeciesReference_setSpecies(p, "k");
int i = Reaction_addProduct(m, p);
fail_unless( i == LIBSBML_LEVEL_MISMATCH);
fail_unless( Reaction_getNumProducts(m) == 0);
SpeciesReference_free(p);
Reaction_free(m);
}
END_TEST
START_TEST (test_L3_SpeciesReference_hasRequiredAttributes )
{
SpeciesReference_t *sr = SpeciesReference_create (3, 1);
fail_unless ( !SpeciesReference_hasRequiredAttributes(sr));
SpeciesReference_setSpecies(sr, "id");
fail_unless ( !SpeciesReference_hasRequiredAttributes(sr));
SpeciesReference_setConstant(sr, 0);
fail_unless ( SpeciesReference_hasRequiredAttributes(sr));
SpeciesReference_free(sr);
}
static SpeciesReference_t *
rsbml_build_doc_species_reference(SEXP r_species_reference)
{
SpeciesReference_t * species_reference;
species_reference = SpeciesReference_create();
rsbml_build_doc_simple_species_reference((SimpleSpeciesReference_t *)species_reference,
r_species_reference);
SET_ATTR(SpeciesReference, species_reference, Stoichiometry, stoichiometry, REAL);
{
SEXP r_stoichiometry_math = GET_SLOT(r_species_reference, install("stoichiometryMath"));
SpeciesReference_t *stoichiometry_math = species_reference;
if (GET_LENGTH(r_stoichiometry_math))
SET_ATTR(SpeciesReference, stoichiometry_math, StoichiometryMath, math, EXPRESSION);
}
return species_reference;
}
END_TEST
START_TEST (test_SpeciesReference_setId3)
{
SpeciesReference_t *c =
SpeciesReference_create(2, 1);
int i = SpeciesReference_setId(c, "cell");
/* this is going to give different results dependenet on whether
* layout is enabled but the test code
*/
#ifdef USE_LAYOUT
fail_unless( i == LIBSBML_OPERATION_SUCCESS );
fail_unless( SpeciesReference_isSetId(c) );
#else
fail_unless( i == LIBSBML_UNEXPECTED_ATTRIBUTE );
fail_unless( !SpeciesReference_isSetId(c) );
#endif
SpeciesReference_free(c);
}