bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

decode.rkt (2191B)

      1 #lang racket/base
      2 (require scribble/decode
      3          scribble/core
      4          rackunit
      5          racket/contract/base)
      6 
      7 (check-true (pre-content? "x"))
      8 (check-true (pre-content? null))
      9 (check-true (pre-content? '("x")))
     10 (check-true (pre-content? (list (element plain "x") "x")))
     11 (check-true (pre-content? (splice (list (element plain "x") "x"))))
     12 (check-true (not (pre-content? 11)))
     13 (check-true (not (pre-content? '(11))))
     14 
     15 (check-true (pre-flow? "x"))
     16 (check-true (pre-flow? '("x")))
     17 (check-true (pre-flow? (list (element plain "x") "x")))
     18 (check-true (pre-flow? (list (paragraph plain (element plain "x")) (element plain "x") "x")))
     19 (check-true (pre-flow? (splice (list (paragraph plain (element plain "x")) (element plain "x") "x"))))
     20 (check-true (not (pre-flow? 11)))
     21 (check-true (not (pre-flow? '(11))))
     22 
     23 (check-true (pre-part? "x"))
     24 (check-true (pre-part? '("x")))
     25 (check-true (pre-part? (list (element plain "x") "x")))
     26 (check-true (pre-part? (list (paragraph plain (element plain "x")) (element plain "x") "x")))
     27 (check-true (pre-part? (list (paragraph plain (element plain "x")) (element plain "x") "x"
     28                              (decode-part '("x") null #f 0)
     29                              (part-start 0 #f null plain "start")
     30                              (part-index-decl '("a" "b") '("a"))
     31                              (part-collect-decl (element plain "x"))
     32                              (part-tag-decl '(something "x"))
     33                              (void)
     34                              (title-decl #f null #f plain "title"))))
     35 (check-true (not (pre-part? 11)))
     36 (check-true (not (pre-part? '(11))))
     37 
     38 (check-true (part? (decode '("x"))))
     39 (check-true (part? (decode-part '("x") null #f 0)))
     40 (check-true (andmap block? (decode-flow '("x"))))
     41 (check-true (block? (decode-compound-paragraph '("x"))))
     42 (check-true (paragraph? (decode-paragraph '("x"))))
     43 (check-true (content? (decode-content '("x"))))
     44 (check-true (content? (decode-elements '("x"))))
     45 (check-true (content? (decode-string "x")))
     46 
     47 (check-true (whitespace? " \n\t\r"))
     48 (check-true (not (whitespace? " \n\t\rx ")))
     49 
     50 (check-equal? "a b c" (clean-up-index-string "  a  b   c   "))
     51 
     52 (check-true (contract? (spliceof integer?)))