test.ss

   1 (require "reddit.ss")
   2 (require "json/json.ss")
   3
   4 (define (test-function function data)
   5   (let loop ((d data))
   6     (if (null? d)
   7         #t
   8         (let* ((i (caar d))
   9                (e (cadar d))
  10                (o (apply function i)))
  11           (if (equal? o e)
  12               (loop (cdr d))
  13               (begin
  14                 (display (format "TEST FAILED for ~a(~a) => ~a (expected ~a)\n" function i o e))
  15                 #f))))))
  16
  17 (define (test-guess-time)
  18   (test-function guess-time
  19                  '((("7 Days 21 hours")  680400)
  20                    (("21 hours")         75600)
  21                    (("1 day")            86400)
  22                    (("10 days")          864000))))
  23
  24 (test-guess-time)
  25 (get-hot-links #f)