anchor.diff:      (signals (invalid-uri-warning) (eval-read "#U%gg"))))
   
   
  +(def-suite variables :in expansions)
  +(in-suite expansions)
  +
  +
   (define-fixture some-variables ()
     (let ((baz 1)
           (bar "bar"))
  
positive.code:   (with-fixture uri-template-syntax ()
      (is (string= "..wilma.1.wil.."
                   (eval-read "(let (foo bar (baz 1) (qux \"wil\"))
                                   #U.{foo}.{bar=wilma}.{baz}.{qux=wilma}.{flub}.)")))))
  
  
  (with-open-file (*standard-output* "test.output" :direction :output
  
negative.code: (def-suite enabled-tests)
  
  
  (def-suite expansions :in enabled-tests)
  (in-suite expansions)
  
  
  (define-fixture uri-template-syntax ()
  