From 9af6f184efde5941d09d5d289b6d41a886745a52 Mon Sep 17 00:00:00 2001 From: christopherlam Date: Wed, 20 Dec 2017 10:01:32 +0800 Subject: [PATCH] fix unit test again --- src/app-utils/test/test-date-utilities.scm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/src/app-utils/test/test-date-utilities.scm b/src/app-utils/test/test-date-utilities.scm index 380253ad90..e62610f1b2 100644 --- a/src/app-utils/test/test-date-utilities.scm +++ b/src/app-utils/test/test-date-utilities.scm @@ -16,15 +16,11 @@ (set-tm:isdst now -1) (gnc-mktime now))) -(define (list->time64 l) - (create-time64 (list-ref l 0) (list-ref l 1) (list-ref l 2) - (list-ref l 3) (list-ref l 4) (list-ref l 5))) - (define (weeknums-equal? pair-of-dates) (let ((d1 (car pair-of-dates)) (d2 (cdr pair-of-dates))) - (equal? (gnc:date-to-week (list->time64 d1)) - (gnc:date-to-week (list->time64 d2))))) + (equal? (gnc:date-to-week (create-time64 d1)) + (gnc:date-to-week (create-time64 d2))))) (define (test-weeknum-calculator) (and (weeknums-equal? (cons '(1970 1 1 0 0 0)