move all backoff logic to process object

pppoe.fnl

@@ -7,7 +7,6 @@
 (fn f. [fmt ...]
   (string.format fmt ...))
 
-(fn now [] (process.clock))
 (fn nil? [x] (= x nil))
 
 (fn pppoe-daemon [transport-device ppp-device]
@@ -19,21 +18,19 @@
                   ipstate-script
                   ipstate-script))]
     (each [event (event.next-event transport-device pppd)]
-      (when (and (not (process.running? pppd))
-                 (nil? pppd.backoff-until))
+      (when (not (process.running? pppd))
         (pppd:backoff))
       (when (and (not (process.running? pppd))
                  (netdev.link-up? transport-device)
-                 pppd.backoff-until
-                 (<= pppd.backoff-until (now)))
+                 (pppd:backoff-expired?))
         (process.join (process.new-process
                        (f. "ifconfig %s up"
                            (netdev.device-name transport-device))))
         (process.start-process pppd))
       (when (and (process.running? pppd)
                  (not (netdev.link-up? transport-device)))
         (process.stop-process pppd))
-      (when (and (ppp.up? ppp-device) (> pppd.backoff-interval 1))
+      (when  (ppp.up? ppp-device)
         (pppd:aver-health))
       )))
 

tests/pppoe-test.fnl

@@ -46,8 +46,12 @@
    "backoff-interval" 1
    :backoff
    (fn [p]
-     (set p.backoff-until (+ (clock) p.backoff-interval))
-     (set p.backoff-interval (* 2 p.backoff-interval)))
+     (when (= nil p.backoff-until)
+       (set p.backoff-until (+ (clock) p.backoff-interval))
+       (set p.backoff-interval (* 2 p.backoff-interval))))
+   "backoff-expired?"
+   (fn [p]
+     (and p.backoff-until (<= p.backoff-until (clock))))
    "aver-health" (fn [p] (set p.backoff-interval 1))
    })