anchor.diff:    (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}.)")))))
  +                               #U.{foo}.{bar=wilma}.{baz}.{qux=wilma}.{flub}.)")))))
  +
  +
  +(def-suite operators)
  +(in-suite operators)
  +
  +
  +(test -opt
  +  "Operator -opt"
  +  (is (string= ""
  +               (parse-uri-template "{-opt||foo}{-opt|bar|foo}")))
  +  (is (string= "..bar."
  +               (let (foo (bar 1))
  +                 (parse-uri-template ".{-opt||foo}.{-opt|bar|bar}."))))
  +  (is (string= ".foo.bar."
  +               (let ((foo ""))
  +                 (parse-uri-template ".{-opt|foo|foo}.{-opt|bar|bar=1}."))))
  +  (with-fixture uri-template-syntax ()
  +    (is (string= "foo"
  +                 (eval-read "(let (foo 1))
  +                               #U.{-opt|foo|foo}")))))
   
   
   (with-open-file (*standard-output* "test.output" :direction :output
  
positive.code: (def-suite enabled-tests)
  
  
  (def-suite expansion-tests
      :description "Test URI-Templates expansions."
      :in enabled-tests)
  
  
  (in-suite expansion-tests)
  
  
  (define-fixture uri-template-syntax ()
  
negative.code: 
  
  (test variable-substitution
    "Successful variable substitutions"
    (is (string= "fredfredfred"
                 (let ((foo "fred"))
                   (parse-uri-template "{foo}{foo=}{foo=wilma}"))))
  