#lang scheme/base
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
         web-server/lang/labels)
(provide labels-tests)

(define l1 (make-labeling #"foo"))
(define l2 (make-labeling #"foo"))
(define l3 (make-labeling #"bar"))
(define l4 (make-labeling #"baz"))

(define labels-tests
  (test-suite
   "Module Labeling"
   
   (test-case
    "The same program produces the same labeling"
    (check-eqv? (l1) (l2))
    (check-eqv? (l1) (l2)))
   
   (test-case
    "Different programs produce different labelings"
    (check-false (eqv? (l3) (l4))))))