r23441 - gnucash/trunk/src/report/report-system/test - Guile2: fix two tests in report system

[Geert Janssens]

Author: gjanssens
Date: 2013-11-26 04:51:11 -0500 (Tue, 26 Nov 2013)
New Revision: 23441
Trac: http://svn.gnucash.org/trac/changeset/23441

Modified:
   gnucash/trunk/src/report/report-system/test/test-collectors.scm
   gnucash/trunk/src/report/report-system/test/test-load-module
Log:
Guile2: fix two tests in report system

Modified: gnucash/trunk/src/report/report-system/test/test-collectors.scm
===================================================================
--- gnucash/trunk/src/report/report-system/test/test-collectors.scm	2013-11-26 05:36:49 UTC (rev 23440)
+++ gnucash/trunk/src/report/report-system/test/test-collectors.scm	2013-11-26 09:51:11 UTC (rev 23441)
@@ -51,8 +51,9 @@
        (equal? 4 (length (collector-end c)))))
 
 (define (empty-collector)
-  (define ((equal-predicate a) x)
-    (equal? a x))
+  (define (equal-predicate a)
+    (lambda (x)
+      (equal? a x)))
   (collector-per-property '(1 2 3 4)
 			  make-equal-filter
 			  (lambda (value) (collector-accumulate-from 0))))

Modified: gnucash/trunk/src/report/report-system/test/test-load-module
===================================================================
--- gnucash/trunk/src/report/report-system/test/test-load-module	2013-11-26 05:36:49 UTC (rev 23440)
+++ gnucash/trunk/src/report/report-system/test/test-load-module	2013-11-26 09:51:11 UTC (rev 23441)
@@ -6,7 +6,8 @@
 (debug-enable 'backtrace)
 
 (debug-set! stack 500000)
-(debug-set! maxdepth 10000)
+(if (< (string->number (major-version)) 2)
+    (debug-set! maxdepth 100000))
 
 (display "  testing report module load ... ")
 (setenv "GNC_UNINSTALLED" "1")