END_TEST
START_TEST (test_Unit_setOffset2)
{
Unit_t *U1 =
Unit_create(2, 1);
int i = Unit_setOffset(U1, 2.0);
fail_unless( i == LIBSBML_OPERATION_SUCCESS );
fail_unless( Unit_getOffset(U1) == 2 );
Unit_free(U1);
}
END_TEST
START_TEST (test_UnitDefinition_addUnit)
{
Unit_t *u = Unit_create(2, 4);
Unit_setKind(u, UNIT_KIND_MOLE);
UnitDefinition_addUnit(UD, u);
fail_unless( UnitDefinition_getNumUnits(UD) == 1 );
Unit_free(u);
}
END_TEST
START_TEST (test_Unit_setMultiplier2)
{
Unit_t *c =
Unit_create(2, 2);
int i = Unit_setMultiplier(c, 4);
fail_unless( i == LIBSBML_OPERATION_SUCCESS );
fail_unless( Unit_getMultiplier(c) == 4 );
Unit_free(c);
}
END_TEST
START_TEST (test_Unit_set_get_unset)
{
Unit_t *u = Unit_create(2, 4);
// defaults
fail_unless( Unit_getKind (u) == UNIT_KIND_INVALID );
fail_unless( Unit_getExponent (u) == 1 );
fail_unless( Unit_isSetExponent(u) );
fail_unless( Unit_getScale (u) == 0 );
fail_unless( Unit_isSetScale(u) );
fail_unless( Unit_getMultiplier(u) == 1.0 );
fail_unless( Unit_isSetMultiplier(u) );
fail_unless( !Unit_isSetKind(u) );
Unit_setKind(u, UNIT_KIND_WATT);
fail_unless( Unit_getKind (u) == UNIT_KIND_WATT );
Unit_setExponent(u, 3);
fail_unless( Unit_getExponent (u) == 3 );
Unit_setScale(u, 4);
fail_unless( Unit_getScale (u) == 4 );
Unit_setMultiplier(u, 3.2);
fail_unless( Unit_getMultiplier(u) == 3.2 );
fail_unless( Unit_unsetKind(u) == LIBSBML_OPERATION_SUCCESS);
fail_unless( Unit_unsetExponent(u) == LIBSBML_UNEXPECTED_ATTRIBUTE);
fail_unless( Unit_unsetScale(u) == LIBSBML_UNEXPECTED_ATTRIBUTE);
fail_unless( Unit_unsetMultiplier(u) == LIBSBML_UNEXPECTED_ATTRIBUTE);
fail_unless( Unit_getKind (u) == UNIT_KIND_INVALID );
fail_unless( Unit_getExponent (u) == 1 );
fail_unless( Unit_isSetExponent(u) );
fail_unless( Unit_getScale (u) == 0 );
fail_unless( Unit_isSetScale(u) );
fail_unless( Unit_getMultiplier(u) == 1.0 );
fail_unless( Unit_isSetMultiplier(u) );
fail_unless( !Unit_isSetKind(u) );
Unit_free(u);
}
END_TEST
START_TEST (test_UnitDefinition_isVariantOfSubstancePerTime_3)
{
UnitDefinition_t *ud =
UnitDefinition_create(2, 2);
Unit_t *dim = Unit_create(2, 2);
Unit_setKind( dim , UnitKind_forName("dimensionless") );
Unit_t *perTime = UnitDefinition_createUnit(ud);
Unit_setKind( perTime , UnitKind_forName("second") );
Unit_setExponent( perTime, -1);
Unit_t *u = UnitDefinition_createUnit(ud);
fail_unless( !UnitDefinition_isVariantOfSubstancePerTime(ud) );
Unit_setKind(u, UNIT_KIND_GRAM);
Unit_setExponent(u, 1);
fail_unless( UnitDefinition_isVariantOfSubstancePerTime(ud) );
Unit_setScale(u, -1);
Unit_setScale(perTime, -1);
fail_unless( UnitDefinition_isVariantOfSubstancePerTime(ud) );
Unit_setMultiplier(u, 2);
fail_unless( UnitDefinition_isVariantOfSubstancePerTime(ud) );
Unit_setOffset(u, 3);
fail_unless( UnitDefinition_isVariantOfSubstancePerTime(ud) );
Unit_setExponent(u, -3);
fail_unless( !UnitDefinition_isVariantOfSubstancePerTime(ud) );
Unit_setExponent(u, 1);
Unit_setExponent(perTime, -3);
fail_unless( !UnitDefinition_isVariantOfSubstancePerTime(ud) );
Unit_setExponent(perTime, -1);
UnitDefinition_addUnit( ud, dim );
fail_unless( UnitDefinition_isVariantOfSubstancePerTime(ud) );
UnitDefinition_free(ud);
Unit_free(dim);
}
static Unit_t *
rsbml_build_doc_unit(SEXP r_unit)
{
Unit_t * unit;
unit = Unit_create();
rsbml_build_doc_s_base((SBase_t *)unit, r_unit);
SET_ATTR(Unit, unit, Kind, kind, UNIT_KIND);
SET_ATTR(Unit, unit, Exponent, exponent, INTEGER);
SET_ATTR(Unit, unit, Scale, scale, INTEGER);
SET_ATTR(Unit, unit, Multiplier, multiplier, REAL);
SET_ATTR(Unit, unit, Offset, offset, REAL);
return unit;
}
END_TEST
START_TEST (test_UnitDefinition_addUnit3)
{
UnitDefinition_t *m = UnitDefinition_create(2, 2);
Unit_t *p
= Unit_create(1, 2);
Unit_setKind(p, UNIT_KIND_MOLE);
int i = UnitDefinition_addUnit(m, p);
fail_unless( i == LIBSBML_LEVEL_MISMATCH);
fail_unless( UnitDefinition_getNumUnits(m) == 0);
Unit_free(p);
UnitDefinition_free(m);
}
END_TEST
START_TEST (test_Unit_unset)
{
Unit_t *u = Unit_create(2, 4);
Unit_setKind(u, UNIT_KIND_WATT);
Unit_setExponent(u, 3);
Unit_setScale(u, 4);
Unit_setMultiplier(u, 3.2);
fail_unless( Unit_getKind (u) == UNIT_KIND_WATT );
fail_unless( Unit_getExponent (u) == 3 );
fail_unless( Unit_getScale (u) == 4 );
fail_unless( Unit_getMultiplier(u) == 3.2 );
fail_unless (Unit_isSetKind(u) == 1);
fail_unless (Unit_isSetExponent(u) == 1);
fail_unless (Unit_isSetScale(u) == 1);
fail_unless (Unit_isSetMultiplier(u) == 1);
fail_unless (Unit_isSetOffset(u) == 0);
Unit_unsetKind(u);
Unit_unsetExponent(u);
Unit_unsetScale(u);
Unit_unsetMultiplier(u);
fail_unless (Unit_isSetKind(u) == 0);
fail_unless (Unit_isSetExponent(u) == 1);
fail_unless (Unit_isSetScale(u) == 1);
fail_unless (Unit_isSetMultiplier(u) == 1);
fail_unless (Unit_isSetOffset(u) == 0);
fail_unless( Unit_getKind (u) == UNIT_KIND_INVALID );
fail_unless( Unit_getExponent (u) == 1 );
fail_unless( Unit_getScale (u) == 0 );
fail_unless( Unit_getMultiplier(u) == 1.0 );
Unit_free(u);
}
END_TEST
START_TEST (test_UnitDefinition_addUnit1)
{
UnitDefinition_t *m = UnitDefinition_create(2, 2);
Unit_t *p
= Unit_create(2, 2);
int i = UnitDefinition_addUnit(m, p);
fail_unless( i == LIBSBML_INVALID_OBJECT);
Unit_setKind(p, UNIT_KIND_MOLE);
i = UnitDefinition_addUnit(m, p);
fail_unless( i == LIBSBML_OPERATION_SUCCESS);
fail_unless( UnitDefinition_getNumUnits(m) == 1);
Unit_free(p);
UnitDefinition_free(m);
}
