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