(module idcheck-test mzscheme (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))) (require "idcheck.ss" "base.ss") (provide idcheck-tests) (define idcheck-tests (test-suite "All tests for idcheck" (test-case "Preregister returns a valid key" (let ((key (preregister "http://www.untyped.com/"))) (check-pred string? key) (check = (string-length key) 32) (check-equal? (string-ref key 0) #\R) (check-not-false (string->number (substring key 1 32))))) (test-case "validate-key raises exception when key is not valid" (check-false (validate-key "THIS Will not work"))) )) )