Author: cotto
Date: Wed Sep 3 22:22:24 2008
New Revision: 30746
Modified:
trunk/t/pmc/fixedfloatarray.t
trunk/t/pmc/resizablepmcarray.t
Log:
[tests] replace macro defs with .include
Modified: trunk/t/pmc/fixedfloatarray.t
==============================================================================
--- trunk/t/pmc/fixedfloatarray.t (original)
+++ trunk/t/pmc/fixedfloatarray.t Wed Sep 3 22:22:24 2008
@@ -18,6 +18,7 @@
=cut
.sub main :main
+ .include 'include/fp_equality.pasm'
.include 'include/test_more.pir'
plan(24)
@@ -30,27 +31,6 @@
interface_check()
.end
-.macro fp_eq ( J, K, L )
- set $N10, .J
- set $N11, .K
- sub $N12, $N11, $N10
- abs $N12, $N12
- gt $N12, 0.000001, .$FPEQNOK
- branch .L
- .label $FPEQNOK:
-.endm
-
-.macro fp_ne( J,K,L)
- set $N10, .J
- set $N11, .K
- sub $N12, $N11, $N10
- abs $N12, $N12
- lt $N12, 0.000001, .$FPNENOK
- branch .L
- .label $FPNENOK:
-.endm
-
-
.sub array_size_tests
new $P0, 'FixedFloatArray'
Modified: trunk/t/pmc/resizablepmcarray.t
==============================================================================
--- trunk/t/pmc/resizablepmcarray.t (original)
+++ trunk/t/pmc/resizablepmcarray.t Wed Sep 3 22:22:24 2008
@@ -18,6 +18,7 @@
=cut
.sub main :main
+ .include 'include/fp_equality.pasm'
.include 'include/test_more.pir'
plan(118)
@@ -208,18 +209,6 @@
.end
-.macro fp_eq ( J, K, L )
- set $N10, .J
- set $N11, .K
- sub $N12, $N11, $N10
- abs $N12, $N12
- gt $N12, 0.000001, .$FPEQNOK
-
- branch .L
-.label $FPEQNOK:
-.endm
-
-
.sub set_keyed_get_keyed_tests
new $P0, 'ResizablePMCArray'
