TEST(multiprint, one)
{
VC vc = vc_createValidityChecker();
VC vc2 = vc_createValidityChecker();
vc_setFlags(vc, 'n');
vc_setFlags(vc, 'd');
vc_setFlags(vc, 'p');
Expr ct_3 = vc_bvConstExprFromStr(vc, "00000000000000000000000000000011");
vc_printExpr(vc, ct_3);
printf("\n");
ct_3 = vc_bvConstExprFromInt(vc, 32, 5);
vc_printExpr(vc, ct_3);
printf("\n");
vc_Destroy(vc);
vc_setFlags(vc2, 'n');
vc_setFlags(vc2, 'd');
vc_setFlags(vc2, 'p');
ct_3 = vc_bvConstExprFromStr(vc2, "00000000000000000000000000000011");
vc_printExpr(vc2, ct_3);
printf("\n");
ct_3 = vc_bvConstExprFromInt(vc2, 32, 5);
vc_printExpr(vc2, ct_3);
printf("\n");
vc_Destroy(vc2);
// FIXME: Actually test something
// ASSERT_TRUE(false && "FIXME: Actually test something");
}
int main() {
VC vc = vc_createValidityChecker();
vc_setFlags(vc,'n');
vc_setFlags(vc,'d');
vc_setFlags(vc,'p');
Expr ct_3 = vc_bvConstExprFromStr(vc,
"00000000000000000000000000000011");
vc_printExpr(vc, ct_3); printf("\n");
ct_3 = vc_bvConstExprFromInt(vc, 32, 5);
vc_printExpr(vc, ct_3); printf("\n");
vc_Destroy(vc);
}
// FIXME: Pick a sensible testname that actually means something!
TEST(array_cvcl02,one) {
VC vc = vc_createValidityChecker();
vc_setFlag(vc,'n');
vc_setFlag(vc,'d');
vc_setFlag(vc,'p');
Expr cvcl_array = vc_varExpr1(vc, "a",32,32);
Expr i = vc_varExpr1(vc, "i", 0, 8);
Expr i32 = vc_bvConcatExpr(vc,
vc_bvConstExprFromStr(vc,
"000000000000000000000000"),
i);
Expr no_underflow = vc_bvLeExpr(vc,
vc_bvConstExprFromInt(vc, 32, 0),
i32);
Expr no_overflow = vc_bvLeExpr(vc,
i32,
vc_bvConstExprFromInt(vc, 32, 9));
Expr in_bounds = vc_andExpr(vc, no_underflow, no_overflow);
Expr a_of_i = vc_bvSignExtend(vc,
vc_readExpr(vc,cvcl_array,i32),
32);
Expr a_of_i_eq_11 = vc_eqExpr(vc,
vc_bvConcatExpr(vc,i32,a_of_i),
vc_bvConstExprFromInt(vc, 64, 11));
vc_assertFormula(vc, in_bounds);
vc_assertFormula(vc, a_of_i_eq_11);
vc_query(vc, vc_falseExpr(vc));
long long v;
Expr pre = vc_bvConstExprFromInt(vc,24,0);
int j;
for(j=0;j<10;j++) {
Expr exprj = vc_bvConstExprFromInt(vc,8,j);
Expr index = vc_bvConcatExpr(vc, pre, exprj);
index = vc_simplify(vc,index);
Expr a_of_j = vc_readExpr(vc, cvcl_array, index);
Expr ce = vc_getCounterExample(vc,a_of_j);
}
vc_Destroy(vc);
//vc_printCounterExample(vc);
// FIXME: Actually test something
//ASSERT_TRUE(false && "FIXME: Actually test something");
}
value caml_vc_bvConstExprFromStr(value vc, value binstr)
{
CAMLparam2(vc,binstr);
CAMLreturn(alloc_Expr(vc_bvConstExprFromStr(VC_val(vc),String_val(binstr))));
}
