report/test/* untabify/delete-trailing-whitespace

Gnucash · Apr 20, 2023 · a0f94ec · a0f94ec
1 parent 7b3702e
commit a0f94ec
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 16 deletions.
diff --git a/gnucash/report/test/test-report-utilities.scm b/gnucash/report/test/test-report-utilities.scm
@@ -50,19 +50,19 @@
          (q-start-date (NDayDelta q-start-date 5)))
 
     (let* ((accounts (env-create-account-structure-alist env (list "Assets"
-								   (list (cons 'type ACCT-TYPE-ASSET))
-								   (list "Bank Account")
-								   (list "Wallet"))))
-	   (bank-account (cdr (assoc "Bank Account" accounts)))
-	   (wallet (cdr (assoc "Wallet" accounts))))
+                                                                   (list (cons 'type ACCT-TYPE-ASSET))
+                                                                   (list "Bank Account")
+                                                                   (list "Wallet"))))
+           (bank-account (cdr (assoc "Bank Account" accounts)))
+           (wallet (cdr (assoc "Wallet" accounts))))
 
       (env-create-daily-transactions env start-date end-date bank-account wallet)
       (format #t "Created transactions for each day from ~a to ~a~%" (gnc-ctime start-date) (gnc-ctime end-date))
       (let ((splits (gnc:account-get-trans-type-splits-interval (list bank-account wallet)
-							      ACCT-TYPE-ASSET
-							      q-start-date q-end-date)))
-	;; 10 is the right number (5 days, two splits per tx)
-	(test-equal "length splits = 10"
+                                                              ACCT-TYPE-ASSET
+                                                              q-start-date q-end-date)))
+        ;; 10 is the right number (5 days, two splits per tx)
+        (test-equal "length splits = 10"
           10
           (length splits)))))
   (teardown)))

diff --git a/gnucash/report/test/test-test-extras.scm b/gnucash/report/test/test-test-extras.scm
@@ -28,12 +28,12 @@
 (define (test-create-account-structure)
   (let ((env (create-test-env)))
     (let ((accounts (env-create-account-structure env (list "Assets"
-							    (list (cons 'type ACCT-TYPE-ASSET))
-							    (list "Bank Account")
-							    (list "Savings"
-								  (list "Instant")
-								  (list "30 day notice"))))))
+                                                            (list (cons 'type ACCT-TYPE-ASSET))
+                                                            (list "Bank Account")
+                                                            (list "Savings"
+                                                                  (list "Instant")
+                                                                  (list "30 day notice"))))))
       (format #t "Accounts ~a\n" accounts)
       (and (= 3 (length accounts))
-	   (equal? "Assets" (xaccAccountGetName (car accounts)))
-	   ))))
+           (equal? "Assets" (xaccAccountGetName (car accounts)))
+           ))))