r23020 - gnucash/trunk/src/report/standard-reports - Add exported ids to reports.. useful for testing

[Geert Janssens]

Author: gjanssens
Date: 2013-06-02 06:31:13 -0400 (Sun, 02 Jun 2013)
New Revision: 23020
Trac: http://svn.gnucash.org/trac/changeset/23020

Modified:
   gnucash/trunk/src/report/standard-reports/category-barchart.scm
   gnucash/trunk/src/report/standard-reports/net-barchart.scm
   gnucash/trunk/src/report/standard-reports/net-linechart.scm
Log:
Add exported ids to reports.. useful for testing

Author:    Peter Broadbery <p.broadbery at gmail.com>

Modified: gnucash/trunk/src/report/standard-reports/category-barchart.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/category-barchart.scm	2013-05-31 17:03:14 UTC (rev 23019)
+++ gnucash/trunk/src/report/standard-reports/category-barchart.scm	2013-06-02 10:31:13 UTC (rev 23020)
@@ -676,6 +676,16 @@
     (gnc:report-finished)
     document))
 
+;; Export reports
+
+(export category-barchart-income-uuid category-barchart-expense-uuid
+	category-barchart-asset-uuid category-barchart-liability-uuid)
+
+(define category-barchart-income-uuid "44f81bee049b4b3ea908f8dac9a9474e")
+(define category-barchart-expense-uuid "b1f15b2052c149df93e698fe85a81ea6")
+(define category-barchart-asset-uuid "e9cf815f79db44bcb637d0295093ae3d")
+(define category-barchart-liability-uuid "faf410e8f8da481fbc09e4763da40bcc")
+
 (for-each 
  (lambda (l)
    (let ((tip-and-rev (cddddr l)))
@@ -700,15 +710,15 @@
  (list 
   ;; reportname, account-types, do-intervals?, 
   ;; menu-reportname, menu-tip
-  (list reportname-income (list ACCT-TYPE-INCOME) #t menuname-income menutip-income (lambda (x) #t) "44f81bee049b4b3ea908f8dac9a9474e")
-  (list reportname-expense (list ACCT-TYPE-EXPENSE) #t menuname-expense menutip-expense (lambda (x) #f) "b1f15b2052c149df93e698fe85a81ea6")
+  (list reportname-income (list ACCT-TYPE-INCOME) #t menuname-income menutip-income (lambda (x) #t) category-barchart-income-uuid)
+  (list reportname-expense (list ACCT-TYPE-EXPENSE) #t menuname-expense menutip-expense (lambda (x) #f) category-barchart-expense-uuid)
   (list reportname-assets 
         (list ACCT-TYPE-ASSET ACCT-TYPE-BANK ACCT-TYPE-CASH ACCT-TYPE-CHECKING
               ACCT-TYPE-SAVINGS ACCT-TYPE-MONEYMRKT
               ACCT-TYPE-RECEIVABLE ACCT-TYPE-STOCK ACCT-TYPE-MUTUAL
               ACCT-TYPE-CURRENCY)
-        #f menuname-assets menutip-assets (lambda (x) #f) "e9cf815f79db44bcb637d0295093ae3d")
+        #f menuname-assets menutip-assets (lambda (x) #f) category-barchart-asset-uuid)
   (list reportname-liabilities 
         (list ACCT-TYPE-LIABILITY ACCT-TYPE-PAYABLE ACCT-TYPE-CREDIT
               ACCT-TYPE-CREDITLINE)
-        #f menuname-liabilities menutip-liabilities (lambda (x) #t) "faf410e8f8da481fbc09e4763da40bcc")))
+        #f menuname-liabilities menutip-liabilities (lambda (x) #t) category-barchart-liability-uuid)))

Modified: gnucash/trunk/src/report/standard-reports/net-barchart.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/net-barchart.scm	2013-05-31 17:03:14 UTC (rev 23019)
+++ gnucash/trunk/src/report/standard-reports/net-barchart.scm	2013-06-02 10:31:13 UTC (rev 23020)
@@ -416,11 +416,19 @@
     (gnc:report-finished)
     document))
 
+;; Export reports
+
+(export net-worth-barchart-uuid)
+(export income-expense-barchart-uuid)
+
+(define net-worth-barchart-uuid "cbba1696c8c24744848062c7f1cf4a72")
+(define income-expense-barchart-uuid "80769921e87943adade887b9835a7685")
+
 ;; Here we define the actual report
 (gnc:define-report
  'version 1
  'name (N_ "Net Worth Barchart")
- 'report-guid "cbba1696c8c24744848062c7f1cf4a72"
+ 'report-guid net-worth-barchart-uuid
  'menu-path (list gnc:menuname-asset-liability)
  'options-generator (lambda () (options-generator #f))
  'renderer (lambda (report-obj) (net-renderer report-obj #f)))
@@ -428,7 +436,7 @@
 (gnc:define-report
  'version 1
  'name reportname
- 'report-guid "80769921e87943adade887b9835a7685"
+ 'report-guid income-expense-barchart-uuid
  'menu-name (N_ "Income & Expense Chart")
  'menu-path (list gnc:menuname-income-expense)
  'options-generator (lambda () (options-generator #t))

Modified: gnucash/trunk/src/report/standard-reports/net-linechart.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/net-linechart.scm	2013-05-31 17:03:14 UTC (rev 23019)
+++ gnucash/trunk/src/report/standard-reports/net-linechart.scm	2013-06-02 10:31:13 UTC (rev 23020)
@@ -470,11 +470,16 @@
     (gnc:report-finished)
     document))
 
+;; Export reports
+
+(export net-worth-linechart-uuid)
+(define net-worth-linechart-uuid "d8b63264186b11e19038001558291366")
+
 ;; Here we define the actual report
 (gnc:define-report
  'version 1
  'name (N_ "Net Worth Linechart")
- 'report-guid "d8b63264186b11e19038001558291366"
+ 'report-guid net-worth-linechart-uuid
  'menu-path (list gnc:menuname-asset-liability)
  'options-generator (lambda () (options-generator #f))
  'renderer (lambda (report-obj) (net-renderer report-obj #f)))