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);
ReadTest(Filename(dirs,"arithmetic.tst"));
SetFloats(MPFR);
ReadTest(Filename(dirs,"arithmetic.tst"));
SetFloats(MPFI);
ReadTest(Filename(dirs,"arithmetic.tst"));
SetFloats(MPC);
ReadTest(Filename(dirs,"arithmetic.tst"));
field := MPC_PSEUDOFIELD;
ReadTest(Filename(dirs,"polynomials.tst"));
SetFloats(CXSC);
ReadTest(Filename(dirs,"arithmetic.tst"));
field := CXSC_PSEUDOFIELD;
ReadTest(Filename(dirs,"polynomials.tst"));
|