t/include/fp_equality.t

   1 #!./parrot
   2 # Copyright (C) 2009, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/include/fp_equality.t - Test runtime/parrot/include/fp_equality.pasm
   8
   9 =head1 SYNOPSIS
  10
  11         % prove t/include/fp_equality.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests fp_* functions.
  16
  17 =cut
  18
  19 .sub main :main
  20     .include 'fp_equality.pasm'
  21     .include 'test_more.pir'
  22     .local num epsilon, zplus, zminus
  23     .local num oplus, ominus
  24     plan(4)
  25     epsilon = 0.00000005
  26     oplus  = 1 + epsilon
  27     ominus = 1 - epsilon
  28     zplus  = 0 + epsilon
  29     zminus = 0 - epsilon
  30
  31     .fp_eq_ok(zplus, 0, 'zero')
  32     .fp_eq_ok(0, zplus, 'zero')
  33
  34     .fp_eq_ok(oplus, 1, 'one')
  35     .fp_eq_ok(1, oplus, 'one')
  36
  37 .end
  38
  39 # Local Variables:
  40 #   mode: pir
  41 #   fill-column: 100
  42 # End:
  43 # vim: expandtab shiftwidth=4 ft=pir: