END_TEST
START_TEST (test_L3_KineticLaw_addParameter2)
{
KineticLaw_t *kl = KineticLaw_create(3, 1);
LocalParameter_t *lp
= LocalParameter_create(3, 1);
LocalParameter_t *lp1
= LocalParameter_create(3, 1);
int i = KineticLaw_addLocalParameter(kl, lp);
fail_unless( i == LIBSBML_INVALID_OBJECT);
LocalParameter_setId(lp, "p");
LocalParameter_setId(lp1, "p1");
i = KineticLaw_addLocalParameter(kl, lp);
fail_unless( i == LIBSBML_OPERATION_SUCCESS);
fail_unless( KineticLaw_getNumParameters(kl) == 1);
fail_unless( KineticLaw_getNumLocalParameters(kl) == 1);
i = KineticLaw_addParameter(kl, (Parameter_t *)lp1);
fail_unless( i == LIBSBML_OPERATION_SUCCESS);
fail_unless( KineticLaw_getNumParameters(kl) == 2);
fail_unless( KineticLaw_getNumLocalParameters(kl) == 2);
LocalParameter_free(lp);
LocalParameter_free(lp1);
KineticLaw_free(kl);
}
END_TEST
START_TEST (test_L3_KineticLaw_addParameter1)
{
KineticLaw_t *kl = KineticLaw_create(3, 1);
Parameter_t *p
= Parameter_create(3, 1);
int i = KineticLaw_addParameter(KL, p);
fail_unless( i == LIBSBML_INVALID_OBJECT);
Parameter_setId(p, "p");
i = KineticLaw_addParameter(KL, p);
fail_unless( i == LIBSBML_OPERATION_SUCCESS);
fail_unless( KineticLaw_getNumParameters(KL) == 1);
fail_unless( KineticLaw_getNumLocalParameters(KL) == 1);
fail_unless( KineticLaw_getNumParameters(kl) == 0);
fail_unless( KineticLaw_getNumLocalParameters(kl) == 0);
i = KineticLaw_addParameter(kl, p);
fail_unless( i == LIBSBML_OPERATION_SUCCESS);
fail_unless( KineticLaw_getNumParameters(KL) == 1);
fail_unless( KineticLaw_getNumLocalParameters(KL) == 1);
fail_unless( KineticLaw_getNumParameters(kl) == 1);
fail_unless( KineticLaw_getNumLocalParameters(kl) == 1);
Parameter_free(p);
KineticLaw_free(kl);
}
void
KineticLawTest_setup (void)
{
kl = KineticLaw_create(2, 4);
if (kl == NULL)
{
fail("KineticLaw_create() returned a NULL pointer.");
}
}
void
L3KineticLawTest_setup (void)
{
KL = KineticLaw_create(3, 1);
if (KL == NULL)
{
fail("KineticLaw_create(3, 1) returned a NULL pointer.");
}
}
END_TEST
START_TEST (test_Reaction_setKineticLaw3)
{
KineticLaw_t *kl =
KineticLaw_create(1, 2);
int i = Reaction_setKineticLaw(R, kl);
fail_unless( i == LIBSBML_OPERATION_SUCCESS );
fail_unless( Reaction_isSetKineticLaw(R) );
KineticLaw_free(kl);
}
END_TEST
START_TEST (test_KineticLaw_createParameter)
{
KineticLaw_t *kl = KineticLaw_create(2, 2);
Parameter_t *p = KineticLaw_createParameter(kl);
fail_unless( KineticLaw_getNumParameters(kl) == 1);
fail_unless( SBase_getLevel((SBase_t *) (p)) == 2 );
fail_unless( SBase_getVersion((SBase_t *) (p)) == 2 );
KineticLaw_free(kl);
}
END_TEST
START_TEST (test_Reaction_setKineticLaw2)
{
KineticLaw_t *kl =
KineticLaw_create(1, 1);
int i = Reaction_setKineticLaw(R, kl);
fail_unless( i == LIBSBML_VERSION_MISMATCH );
fail_unless( !Reaction_isSetKineticLaw(R) );
KineticLaw_free(kl);
}
END_TEST
START_TEST (test_KineticLaw_addParameter4)
{
KineticLaw_t *kl = KineticLaw_create(2, 2);
Parameter_t *p = NULL;
int i = KineticLaw_addParameter(kl, p);
fail_unless( i == LIBSBML_OPERATION_FAILED);
fail_unless( KineticLaw_getNumParameters(kl) == 0);
KineticLaw_free(kl);
}
END_TEST
START_TEST (test_KineticLaw_setSubstanceUnits4)
{
KineticLaw_t *kl1 =
KineticLaw_create(1, 2);
int i = KineticLaw_setSubstanceUnits(kl1, NULL);
fail_unless( i == LIBSBML_OPERATION_SUCCESS);
fail_unless( !KineticLaw_isSetSubstanceUnits(kl1) );
KineticLaw_free(kl1);
}
static KineticLaw_t *
rsbml_build_doc_kinetic_law(SEXP r_kinetic_law)
{
KineticLaw_t * kinetic_law;
kinetic_law = KineticLaw_create();
rsbml_build_doc_s_base((SBase_t *)kinetic_law, r_kinetic_law);
SET_ATTR(KineticLaw, kinetic_law, Math, math, EXPRESSION);
ADD_LIST(KineticLaw, kinetic_law, Parameter, parameters, parameter);
SET_ATTR(KineticLaw, kinetic_law, TimeUnits, timeUnits, STRING);
SET_ATTR(KineticLaw, kinetic_law, SubstanceUnits, substanceUnits, STRING);
return kinetic_law;
}
END_TEST
START_TEST (test_KineticLaw_addParameter3)
{
KineticLaw_t *kl = KineticLaw_create(2, 2);
Parameter_t *p
= Parameter_create(1, 2);
Parameter_setId(p, "p");
int i = KineticLaw_addParameter(kl, p);
fail_unless( i == LIBSBML_LEVEL_MISMATCH);
fail_unless( KineticLaw_getNumParameters(kl) == 0);
Parameter_free(p);
KineticLaw_free(kl);
}
END_TEST
START_TEST (test_KineticLaw_setSubstanceUnits3)
{
KineticLaw_t *kl1 =
KineticLaw_create(1, 2);
int i = KineticLaw_setSubstanceUnits(kl1, "1second");
fail_unless( i == LIBSBML_INVALID_ATTRIBUTE_VALUE);
fail_unless( !KineticLaw_isSetSubstanceUnits(kl1) );
i = KineticLaw_unsetSubstanceUnits(kl1);
fail_unless( i == LIBSBML_OPERATION_SUCCESS);
fail_unless( !KineticLaw_isSetSubstanceUnits(kl1) );
KineticLaw_free(kl1);
}
END_TEST
START_TEST (test_KineticLaw_setTimeUnits2)
{
KineticLaw_t *kl1 =
KineticLaw_create(1, 2);
int i = KineticLaw_setTimeUnits(kl1, "second");
fail_unless( i == LIBSBML_OPERATION_SUCCESS);
fail_unless( KineticLaw_isSetTimeUnits(kl1) );
i = KineticLaw_unsetTimeUnits(kl1);
fail_unless( i == LIBSBML_OPERATION_SUCCESS);
fail_unless( !KineticLaw_isSetTimeUnits(kl1) );
KineticLaw_free(kl1);
}
