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