Changeset 33884 in project


Ignore:
Timestamp:
03/05/17 17:09:15 (4 weeks ago)
Author:
kon
Message:

add adjust fixed/mutated tests

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/srfi-19/trunk/tests/run.scm

    r33843 r33884  
    406406        (date-adjust jan31 1 'months)) ) ) )
    407407
    408 (define-s19-test! "date-adjust-dst-dys"
     408(define-s19-test! "date-adjust-dst-dys-fixed"
    409409  (lambda ()
    410410    (let ((m (make-date 0 0 0 5 12 3 2011)))
    411411      (= (date-hour m) (date-hour (date-adjust m 1 'days))) ) ) )
    412412
    413 (define-s19-test! "date-adjust-dst-hrs"
     413(define-s19-test! "date-adjust-dst-dys-day"
     414  (lambda ()
     415    (let ((m (make-date 0 0 0 5 12 3 2011)))
     416      (= (+ 1 (date-day m)) (date-day (date-adjust m 1 'days))) ) ) )
     417
     418(define-s19-test! "date-adjust-dst-hrs-fixed"
    414419  (lambda ()
    415420    (let ((m (make-date 0 0 0 5 12 3 2011)))
    416421      (= (date-hour m) (date-hour (date-adjust m 24 'hours))) ) ) )
     422
     423(define-s19-test! "date-adjust-dst-hrs-day"
     424  (lambda ()
     425    (let ((m (make-date 0 0 0 5 12 3 2011)))
     426      (= (+ 1 (date-day m)) (date-day (date-adjust m 24 'hours))) ) ) )
    417427
    418428;NOTE MomentJS says:
Note: See TracChangeset for help on using the changeset viewer.