|
|
|
|
#lang racket/base
|
|
|
|
|
(require (submod "main.rkt" safe) rackunit)
|
|
|
|
|
|
|
|
|
|
(require/expose "main.rkt" (word->hyphenation-points exception-word?))
|
|
|
|
|
|
|
|
|
|
(check-equal? (hyphenate "polymorphism") "poly\u00ADmor\u00ADphism")
|
|
|
|
|
(check-equal? (hyphenate "polymorphism" #:min-length 100) "polymorphism")
|
|
|
|
|
(check-equal? (hyphenate "ugly" #:min-length 1) "ug\u00ADly")
|
|
|
|
|
(check-equal? (unhyphenate "poly\u00ADmor\u00ADphism") "polymorphism")
|
|
|
|
|
(check-equal? (hyphenatef "polymorphism" (λ(x) #f)) "polymorphism")
|
|
|
|
|
(check-equal? (hyphenate "polymorphism" #\-) "poly-mor-phism")
|
|
|
|
|
(check-equal? (hyphenate "polymorphism" "foo") "polyfoomorfoophism")
|
|
|
|
|
(check-equal? (unhyphenate "polyfoomorfoophism" "foo") "polymorphism")
|
|
|
|
|
(check-equal? (hyphenate "polymorphism" #\* #:exceptions '("polymo-rphism")) "polymo*rphism")
|
|
|
|
|
(check-equal? (hyphenate "circular polymorphism squandering") "cir\u00ADcu\u00ADlar poly\u00ADmor\u00ADphism squan\u00ADder\u00ADing")
|
|
|
|
|
(check-equal? (hyphenate '(p "circular polymorphism" amp (em "squandering"))) '(p "cir\u00ADcu\u00ADlar poly\u00ADmor\u00ADphism" amp (em "squan\u00ADder\u00ADing")))
|
|
|
|
|
(check-equal? (hyphenate "present project") "present project") ; exception words
|
|
|
|
|
;; test these last so exceptions have been set up already
|
|
|
|
|
(check-equal? (word->hyphenation-points "polymorphism") '("poly" "mor" "phism"))
|
|
|
|
|
(check-equal? (word->hyphenation-points "present") '("present")) ; exception word
|
|
|
|
|
|
|
|
|
|
(check-true (exception-word? "Foobar"))
|
|
|
|
|
(check-true (exception-word? "foobar"))
|
|
|
|
|
(check-false (exception-word? "foobar!"))
|
|
|
|
|
(check-true (exception-word? "foo-bar"))
|
|
|
|
|
(check-false (exception-word? "foo bar"))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(check-equal? (hyphenate '(p "circular polymorphism" amp (em "squandering")) #:omit-tags '(em))
|
|
|
|
|
'(p "cir\u00ADcu\u00ADlar poly\u00ADmor\u00ADphism" amp (em "squandering")))
|
|
|
|
|
|
|
|
|
|
(check-equal? (hyphenate '(p "circular polymorphism" amp (em "squandering")) #:omit-tags '(p))
|
|
|
|
|
'(p "circular polymorphism" amp (em "squandering")))
|
|
|
|
|
|
|
|
|
|
(check-equal? (hyphenate '(p (foo "circular") (bar "circular") (zam "circular")) #:omit-tags '(foo zam))
|
|
|
|
|
'(p (foo "circular") (bar "cir\u00ADcu\u00ADlar") (zam "circular")))
|
