+(let ((tdelta (make-time-delta 8)))
+ (test-assert (time-delta? tdelta))
+ (test-eqv (time-delta-sec tdelta) 8)
+ (test-eqv (time-delta-usec tdelta) 0)
+ (test-equal
+ (time-+ '(2 . 3) tdelta)
+ '(10 . 3)))
+
+(let ((tdelta (make-time-delta 10 1)))
+ (test-assert (time-delta? tdelta))
+ (test-eqv (time-delta-sec tdelta) 10)
+ (test-eqv (time-delta-usec tdelta) 1)
+ (test-equal
+ (time-+ '(2 . 3) tdelta)
+ '(12 . 4)))
+