[interchange-cvs] interchange - heins modified dist/test/products/tests.asc
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Sun Mar 2 13:01:01 2003
User: heins
Date: 2003-03-02 18:00:24 GMT
Modified: dist/test/products tests.asc
Log:
* Account for the fact that noformat=1 numbers now return number with .00 appended
because of change to round_to_frac_digits() routine.
There is some question of whether this is the right thing to do...
Maybe we should have a both a round_to_frac_digits() and
a round_to_frac_digits_always() routine.
Revision Changes Path
2.7 +2 -2 interchange/dist/test/products/tests.asc
rev 2.7, prev_rev 2.6
Index: tests.asc
===================================================================
RCS file: /var/cvs/interchange/dist/test/products/tests.asc,v
retrieving revision 2.6
retrieving revision 2.7
diff -u -r2.6 -r2.7
--- tests.asc 23 Jan 2003 05:00:16 -0000 2.6
+++ tests.asc 2 Mar 2003 18:00:24 -0000 2.7
@@ -1953,7 +1953,7 @@
[assign clear=1]
[calc] $Carts->{main} = []; return; [/calc]
%%
-OK\s+109.50*\s+0*.50*\s+4\s+5
+OK\s+109.50*\s+0*.50*\s+4(?:\.00)?\s+5(?:\.00)?
%%
ERROR
%%
@@ -2039,7 +2039,7 @@
[/perl]
:[item-list main][item-subtotal noformat=1] [/item-list]:
%%
-:65000 6630 6725 6590\.5 1468\.95 1399 1087\.5 725 652\.5 362\.5 320 80 40000000 1000 :
+:65000(?:\.00)? 6630(?:\.00)? 6725(?:\.00)? 6590\.5 1468\.95 1399(?:\.00)? 1087\.5 725 652\.5 362\.5 320(?:\.00)? 80(?:\.00)? 40000000(?:\.00)? 1000(?:\.00)? :
%%
%%