1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
LoadPackage("float");
SetInfoLevel(InfoFloat,1);
dirs := DirectoriesPackageLibrary("float","tst");
SetFloats(IEEE754FLOAT);
Test(Filename(dirs,"arithmetic.tst"),rec(compareFunction:="uptowhitespace"));
SetFloats(MPFR);
Test(Filename(dirs,"arithmetic.tst"),rec(compareFunction:="uptowhitespace"));
SetFloats(MPFI);
Test(Filename(dirs,"arithmetic.tst"),rec(compareFunction:="uptowhitespace"));
SetFloats(MPC);
Test(Filename(dirs,"arithmetic.tst"),rec(compareFunction:="uptowhitespace"));
field := MPC_PSEUDOFIELD;
Test(Filename(dirs,"polynomials.tst"),rec(compareFunction:="uptowhitespace"));
##SetFloats(CXSC);
##Test(Filename(dirs,"arithmetic.tst"),rec(compareFunction:="uptowhitespace"));
##field := CXSC_PSEUDOFIELD;
##Test(Filename(dirs,"polynomials.tst"),rec(compareFunction:="uptowhitespace"));
|