Improved test example.

test/test.hl.rkt

@@ -5,6 +5,8 @@
 
 @title{Title}
 
+@section{if-preexpanding}
+
 Hello world.
 
 @(if-preexpanding
@@ -14,6 +16,8 @@ Hello world.
 @(unless-preexpanding
   (symbol->string ee))
 
+@section{Submodules}
+
 Submodules work:
 
 @chunk[<submod>
@@ -54,6 +58,8 @@ Test with multiple subforms inside require, and coverage for
                             racket/syntax)
                 racket/bool)]
 
+@section{Avoiding for-label}
+
 Wrap the @racket[(require (for-syntax racket/base))] in a 
 @racket[(begin …)] so that it gets ignored, otherwise
 scribble complains some identifiers are loaded twice
@@ -64,6 +70,13 @@ at meta-level 0 by @racketmodname[typed/racket].
        (begin (require (for-syntax racket/base))
               (require typed/rackunit))]
 
+@CHUNK[<with-unsyntax>
+       (let* ([b 1234]
+              [e (syntax-e #`#,b)])
+         (check-equal? e 1234))]
+
+@section{Main chunk}
+
 @chunk[<*>
        <require-not-label>
        <submod>
@@ -77,6 +90,7 @@ at meta-level 0 by @racketmodname[typed/racket].
             #'(a . b))))
        (check-equal? (+ x x) 2)
        (check-equal? (+ x y) 0)
+       <with-unsyntax>
        ;; Gives an error because typed/racket/base is used on the #lang line:
        ;curry
        (check-equal? ((make-predicate One) 1) #t)