mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-15 03:15:09 -05:00
55 lines
2.3 KiB
Diff
55 lines
2.3 KiB
Diff
|
# This patch was submitted upstream to: https://bugs.gnucash.org/show_bug.cgi?id=797008.
|
||
|
|
From c20d74bebca516d0e391724202aad511967fe109 Mon Sep 17 00:00:00 2001
|
||
|
|
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
|
||
|
|
Date: Wed, 2 Jan 2019 14:46:28 -0500
|
||
|
|
Subject: [PATCH] tests: Fix a test failure in test-transaction.scm.
|
||
|
|
|
||
|
|
With the New Year upon us, a test which was hard-coded to use 2018 now
|
||
|
|
failed.
|
||
|
|
|
||
|
|
Fixes issue #797008 (see:
|
||
|
|
https://bugs.gnucash.org/show_bug.cgi?id=797008).
|
||
|
|
|
||
|
|
* gnucash/report/standard-reports/test/test-transaction.scm:
|
||
|
|
(trep-tests): Use the current year in the test string instead of a
|
||
|
|
static one.
|
||
|
|
---
|
||
|
|
gnucash/report/standard-reports/test/test-transaction.scm | 7 +++++--
|
||
|
|
1 file changed, 5 insertions(+), 2 deletions(-)
|
||
|
|
|
||
|
|
diff --git a/gnucash/report/standard-reports/test/test-transaction.scm b/gnucash/report/standard-reports/test/test-transaction.scm
|
||
|
|
index 755aba298..ae3fbd5c1 100644
|
||
|
|
--- a/gnucash/report/standard-reports/test/test-transaction.scm
|
||
|
|
+++ b/gnucash/report/standard-reports/test/test-transaction.scm
|
||
|
|
@@ -5,6 +5,7 @@
|
||
|
|
(use-modules (gnucash report stylesheets))
|
||
|
|
(use-modules (gnucash report report-system))
|
||
|
|
(use-modules (gnucash report report-system test test-extras))
|
||
|
|
+(use-modules (srfi srfi-19))
|
||
|
|
(use-modules (srfi srfi-64))
|
||
|
|
(use-modules (gnucash engine test srfi64-extras))
|
||
|
|
(use-modules (sxml simple))
|
||
|
|
@@ -643,7 +644,8 @@
|
||
|
|
(set-option! options "General" "Show original currency amount" #t)
|
||
|
|
(set-option! options "Sorting" "Primary Key" 'date)
|
||
|
|
(set-option! options "Sorting" "Primary Subtotal for Date Key" 'none)
|
||
|
|
- (let* ((sxml (options->sxml options "dual columns")))
|
||
|
|
+ (let* ((sxml (options->sxml options "dual columns"))
|
||
|
|
+ (current-year (date->string (current-date) "~y")))
|
||
|
|
(test-equal "dual amount column, with original currency headers"
|
||
|
|
(list "Date" "Num" "Description" "Memo/Notes" "Account"
|
||
|
|
"Debit (USD)" "Credit (USD)" "Debit" "Credit")
|
||
|
|
@@ -652,7 +654,8 @@
|
||
|
|
(list "Grand Total" "$2,280.00" "$2,280.00")
|
||
|
|
(get-row-col sxml -1 #f))
|
||
|
|
(test-equal "dual amount column, first transaction correct"
|
||
|
|
- (list "01/03/18" "$103 income" "Root.Asset.Bank" "$103.00" "$103.00")
|
||
|
|
+ (list (string-append "01/03/" current-year) "$103 income"
|
||
|
|
+ "Root.Asset.Bank" "$103.00" "$103.00")
|
||
|
|
(get-row-col sxml 1 #f)))
|
||
|
|
)
|
||
|
|
|
||
|
|
--
|
||
|
|
2.19.0
|
||
|
|
|