lifebox-test.ss
#lang scheme/base

(require "lifebox.ss"
         "test-base.ss")

; Tests ------------------------------------------

(define lifebox-tests
  (test-suite "lifebox.ss"
    
    (test-case "lifebox-expired?"
      (check-pred lifebox-expired? (make-lifebox 0 'hi))
      (check-false (lifebox-expired? (make-lifebox (+ (current-seconds) 100) 'hi)))
      (check-true  (lifebox-expired? (make-lifebox 100 'hi) 100))
      (check-false (lifebox-expired? (make-lifebox 100 'hi) 99)))))

; Provide statements -----------------------------

(provide lifebox-tests)