share/numeric/rtest_decfp.mac

   1 /*
   2  * Tests for decimal floats, basically copied from the decfp-core.lisp
   3  */
   4
   5 (kill(all),
   6  if not ?boundp('rounddecimalfloats) then load(decfp),
   7  sum:0
   8  );
   9 0;
  10
  11 (for i: 1 thru 50 do sum:sum+decbfloat(9/10^i), is(sum < 1));
  12 true;
  13
  14 is(sum+1/10^50=1.0L0);
  15 true;
  16
  17 rationalize(1.0L-1)-1/10;
  18 0;
  19
  20 /* The decfp code changes the value of bigfloatone (and possibly other
  21 such values) to decimal floats. Let's reset them. */
  22 (reset(?bigfloat%pi,?bigfloat%e,?bfmhalf,?bfhalf,?bigfloatone,?bigfloatzero),0);
  23 0$