Bug 771617 - Build fails because test test-report-utilities is sensitive to time of day/timezone

Previous commit was working with years and monts potentially outside the supported range.

src/report/report-system/test/test-report-utilities.scm

@@ -20,10 +20,13 @@
 (define (test-account-get-trans-type-splits-interval)
   (let* ((env (create-test-env))
          (ts-now (localtime (current-time)))
-         (end-date-tp (gnc-dmy2timespec-neutral (tm:mday ts-now) (tm:mon ts-now) (tm:year ts-now)))
+         (test-day (tm:mday ts-now))
+         (test-month (+ 1 (tm:mon ts-now)))
+         (test-year (+ 1900 (tm:year ts-now)))
+         (end-date-tp (gnc-dmy2timespec-neutral test-day test-month test-year))
          (start-date-tp (NDayDelta end-date-tp 10))
-         (q-end-date-tp (gnc-dmy2timespec-end (tm:mday ts-now) (tm:mon ts-now) (tm:year ts-now)))
-         (q-start-date-tp (gnc-dmy2timespec (tm:mday ts-now) (tm:mon ts-now) (tm:year ts-now)))
+         (q-end-date-tp (gnc-dmy2timespec-end test-day test-month test-year))
+         (q-start-date-tp (gnc-dmy2timespec test-day test-month test-year))
          (q-start-date-tp (NDayDelta q-start-date-tp 5)))
 
     (let* ((accounts (env-create-account-structure-alist env (list "Assets"

src/report/standard-reports/test/test-cash-flow.scm

@@ -31,7 +31,7 @@
 	 (wallet-account (cdr (assoc "Wallet" account-alist)))
 	 (expense-account (cdr (assoc "Expenses" account-alist)))
 	 (today (localtime (current-time)))
-         (to-date-tp (gnc-dmy2timespec-end (tm:mday today) (tm:mon today) (tm:year today)))
+         (to-date-tp (gnc-dmy2timespec-end (tm:mday today) (+ 1 (tm:mon today)) (+ 1900 (tm:year today))))
          (from-date-tp (NDayDelta to-date-tp 1))
 	 (exchange-fn (lambda (currency amount date) amount))
 	 (report-currency (gnc-default-report-currency))
@@ -67,7 +67,7 @@
 	 (wallet-account (cdr (assoc "Wallet" account-alist)))
 	 (expense-account (cdr (assoc "Expenses" account-alist)))
 	 (today (localtime (current-time)))
-         (to-date-tp (gnc-dmy2timespec-end (tm:mday today) (tm:mon today) (tm:year today)))
+         (to-date-tp (gnc-dmy2timespec-end (tm:mday today) (+ 1 (tm:mon today)) (+ 1900 (tm:year today))))
          (from-date-tp (NDayDelta to-date-tp 1))
 	 (exchange-fn (lambda (currency amount date) amount))
 	 (report-currency (gnc-default-report-currency))
@@ -99,7 +99,7 @@
 	 (wallet-account (cdr (assoc "Wallet" account-alist)))
 	 (expense-account (cdr (assoc "Expenses" account-alist)))
 	 (today (localtime (current-time)))
-         (to-date-tp (gnc-dmy2timespec-end (tm:mday today) (tm:mon today) (tm:year today)))
+         (to-date-tp (gnc-dmy2timespec-end (tm:mday today) (+ 1 (tm:mon today)) (+ 1900 (tm:year today))))
          (from-date-tp (NDayDelta to-date-tp 1))
 	 (exchange-fn (lambda (currency amount date) amount))
 	 (report-currency (gnc-default-report-currency))