7d50e61c7f
* Another big chunk of v4-require-isms * Allow `#lang framework/keybinding-lang' for keybinding files * Move hierlist sources into "mrlib/hierlist", leave stub behind svn: r10689
23 lines
566 B
Scheme
23 lines
566 B
Scheme
#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))))))
|