===================================================================
RCS file: /cvs/RT/Invoicing/test.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- RT/Invoicing/test.pl	2011/03/20 02:34:42	1.2
+++ RT/Invoicing/test.pl	2011/03/20 06:20:11	1.3
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $AFresh1: test.pl,v 1.1.1.1 2011/03/19 22:27:16 andrew Exp $
+# $AFresh1: test.pl,v 1.2 2011/03/20 01:34:42 andrew Exp $
 use strict;
 use warnings;
 
@@ -60,16 +60,12 @@
                     count => 1.5,
                     rate => 100,
                 },
-            ],
-            discounts => [
                 {
-                    contents => 'Included Hours',
-                    amount   => .33 * 75,
+                    contents => 'Rounding FAIL',
+                    detail => 'Should be $8.30',
+                    count => .083,
+                    rate => 100,
                 },
-                {
-                    contents => 'Included Hours',
-                    amount   => 1.5 * 100,
-                },
             ],
         },
         {
@@ -98,16 +94,6 @@
                     rate => 125,
                 },
             ],
-            discounts => [
-                {
-                    contents => 'Included Hours',
-                    amount   => (.33 * 75) + ( 3.33 * 100 ),
-                },
-                {
-                    contents => 'Included Hours',
-                    amount   => (.25 * 75 ) + (2.25 * 100),
-                },
-            ],
         },
         {
             id => 85,
@@ -139,6 +125,10 @@
             ],
         },
     ],
+    discount => {
+        contents => 'Discount',
+        amount   => '8.498',
+    },
 );
 
 my $tt = Template->new;