anchor.diff:      (is (string= "--to=html5 --from=markdown --toc"
   		 (sg::generate-pandoc-args '()))))
     (is (string= "<h1 id=\"foo\">foo</h1>"
  -	       (process-content "# foo" :markup :markdown :output-format :html)))
  +	       (markup "# foo" :markup :markdown :output-format :html)))
     (let ((*environment* '(:markup :none)))
       (is (string= "foo"
  -		 (process-content "foo")))))
  +		 (markup "foo")))))
   
   (test site-generator
     (is (equal '(:en #p"foo/bar" :fr #p"lefoo/lebar")
  
positive.code: 		((#P"main.html" . 3585328208) (#P"footer.html" . 3585328073)
  		 (#P"header.html" . 3586212646))
  		((#P"other.html" . 3585327838)))))))
  
negative.code: * [About site-generator]($(page-address \"about\"))
  * [Foo]($(page-address \"foo/bar\"))"))
  	 :TEMPLATE "main.html" :LANGUAGES (:EN :FR) :SERVER
  	 "alexcharlton@alex-charlton.com:alex-charlton.com/" :SITE-NAME
  	 (:EN ("site-generator")))
         (parse-content (merge-pathnames "../examples/example-site/content/config"
  				       *test-dir*))))
  