dist/tests/tbeta.c

53   mpfr_t z, w, r, expect;
58   mpfr_init2 (expect, prec);
62   mpfr_set_zero (expect, 1);
63   TEST(prec, r, z, w, expect);
67   mpfr_set_nan (expect);
68   TEST(prec, r, z, w, expect);
72   mpfr_set_nan (expect);
73   TEST(prec, r, z, w, expect);
77   mpfr_set_inf (expect, 1);
78   TEST(prec, r, z, w, expect);
82   mpfr_set_inf (expect, -1);
83   TEST(prec, r, z, w, expect);
87   mpfr_set_nan (expect);
88   TEST(prec, r, z, w, expect);
92   mpfr_set_nan (expect);
93   TEST(prec, r, z, w, expect);
99       mpfr_set_nan (expect);
100       TEST(prec, r, z, w, expect);
105       mpfr_set_inf (expect, 1);
106       TEST(prec, r, z, w, expect);
110       mpfr_set_inf (expect, -1);
111       TEST(prec, r, z, w, expect);
116   mpfr_set_nan (expect);
117   TEST(prec, r, z, w, expect);
121   mpfr_set_zero (expect, -1);
122   TEST(prec, r, z, w, expect);
126   mpfr_set_zero (expect, 1);
127   TEST(prec, r, z, w, expect);
131   mpfr_set_nan (expect);
132   TEST(prec, r, z, w, expect);
137   mpfr_clear (expect);
143   mpfr_t r, z, w, expect;
149   mpfr_init2 (expect, prec);
154       mpfr_set_si_2exp (expect, 1, -i, MPFR_RNDN);
156       TEST(prec, r, z, w, expect);
162   mpfr_clear (expect);
177   mpfr_t r, z, w, expect;
186   mpfr_init2 (expect, prec);
191   mpfr_set_zero (expect, 1);
192   TEST(prec, r, z, w, expect);
197   mpfr_set_zero (expect, 1);
198   TEST(prec, r, z, w, expect);
203   mpfr_set_zero (expect, 1);
204   TEST(prec, r, z, w, expect);
209   mpfr_set_zero (expect, 1);
210   TEST(prec, r, z, w, expect);
215   mpfr_clear (expect);
222   mpfr_t r, z, w, expect;
231   mpfr_init2 (expect, oprec);
235   mpfr_set_str (expect, "1e-5", 2, MPFR_RNDN);
236   TESTRND(prec, r, z, w, expect, MPFR_RNDN);
238   mpfr_set_str (expect, "1.1e-5", 2, MPFR_RNDN);
239   TESTRND(prec, r, z, w, expect, MPFR_RNDU);
241   mpfr_set_str (expect, "1e-5", 2, MPFR_RNDN);
242   TESTRND(prec, r, z, w, expect, MPFR_RNDD);
246   mpfr_set_str (expect, "1e-20", 2, MPFR_RNDN);
247   TESTRND(prec, r, z, w, expect, MPFR_RNDN);
249   mpfr_set_str (expect, "1e-19", 2, MPFR_RNDN);
250   TESTRND(prec, r, z, w, expect, MPFR_RNDU);
254   mpfr_set_str (expect, "1e-20", 2, MPFR_RNDN);
255   TESTRND(prec, r, z, w, expect, MPFR_RNDN);
260   mpfr_set_str (expect, "1e-14", 2, MPFR_RNDN);
261   TESTRND(prec, r, z, w, expect, MPFR_RNDN);
265   mpfr_set_str (expect, "1e-271", 2, MPFR_RNDN);
266   TESTRND(prec, r, z, w, expect, MPFR_RNDN);
268   mpfr_set_str (expect, "1e-272", 2, MPFR_RNDN);
269   TESTRND(prec, r, z, w, expect, MPFR_RNDD);
271   mpfr_set_str (expect, "1e-271", 2, MPFR_RNDN);
272   TESTRND(prec, r, z, w, expect, MPFR_RNDU);
277   mpfr_clear (expect);
284   mpfr_t r, z, w, expect;
289   mpfr_init2 (expect, prec);
293   mpfr_beta (expect, w, z, rnd_mode);
294   TESTRND(prec, r, z, w, expect, rnd_mode);
298   mpfr_beta (expect, w, z, rnd_mode);
299   TESTRND(prec, r, z, w, expect, rnd_mode);
303   mpfr_beta (expect, w, z, rnd_mode);
304   TESTRND(prec, r, z, w, expect, rnd_mode);
308   mpfr_beta (expect, w, z, rnd_mode);
309   TESTRND(prec, r, z, w, expect, rnd_mode);
313   mpfr_beta (expect, w, z, rnd_mode);
314   TESTRND(prec, r, z, w, expect, rnd_mode);
317   mpfr_beta (expect, w, z, rnd_mode);
318   TESTRND(prec, r, z, w, expect, rnd_mode);
323   mpfr_clear (expect);