[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)? :
 %%
 
 %%