b289b76536
add contracts to location-formatting functions, and make sure those functions convert their inputs to strings, and fix a documentation bug in `techrpt-location`
57 lines
1.8 KiB
Racket
57 lines
1.8 KiB
Racket
#lang racket/base
|
|
|
|
(require rackunit scriblib/autobib)
|
|
|
|
(test-case "define-cite"
|
|
;; Check that `define-cite` binds the expected identifiers
|
|
|
|
(let ()
|
|
(define-cite cite citet gen-bib)
|
|
(check-pred values (void cite citet gen-bib)))
|
|
|
|
(let ()
|
|
(define-cite cite citet gen-bib
|
|
#:cite-author cite-author
|
|
#:cite-year cite-year)
|
|
(check-pred values (void cite citet gen-bib cite-author cite-year))))
|
|
|
|
(test-case "proceedings-location"
|
|
(check-not-exn
|
|
(λ () (proceedings-location "RacketCon" #:pages '(1 2) #:series 3 #:volume 4)))
|
|
(check-not-exn
|
|
(λ () (proceedings-location 'PLDI)))
|
|
(check-exn exn:fail:contract?
|
|
(λ () (proceedings-location "USENIX" #:pages "4--5"))))
|
|
|
|
(test-case "journal-location"
|
|
(check-not-exn
|
|
(λ () (journal-location "CACM" #:pages '(1 2) #:number 3 #:volume 4)))
|
|
(check-not-exn
|
|
(λ () (journal-location 'JFP)))
|
|
(check-exn exn:fail:contract?
|
|
(λ () (journal-location "Journal of Chromatography" #:pages 30))))
|
|
|
|
(test-case "book-location"
|
|
(check-not-exn
|
|
(λ () (book-location #:edition 1 #:publisher "A.C. Clayton")))
|
|
(check-not-exn
|
|
(λ () (book-location #:edition 'B #:publisher 'Elsiver)))
|
|
(check-exn exn:fail?
|
|
(λ () (book-location))))
|
|
|
|
(test-case "techrpt-location"
|
|
(check-not-exn
|
|
(λ () (techrpt-location #:institution "MIT" #:number 'AIM-353)))
|
|
(check-exn exn:fail:contract?
|
|
(λ () (techrpt-location #:institution 'UCB))))
|
|
|
|
(test-case "dissertation-location"
|
|
(check-not-exn
|
|
(λ () (dissertation-location #:institution "New College")))
|
|
(check-not-exn
|
|
(λ () (dissertation-location #:institution 'Oberlin)))
|
|
(check-not-exn
|
|
(λ () (dissertation-location #:institution "Georgetown University" #:degree "BS")))
|
|
(check-exn exn:fail:contract?
|
|
(λ () (dissertation-location #:degree "PhD"))))
|