Test title-and-properties-3 details

test-reference-links : title-and-properties-3
  Condition: Ensure-same: nil is not equalp to ((:target . "new") (:class . "external"))
  Code     : ((let ((cl-markdown-test::doc (cl-markdown:markdown "I like [beans][]. Do you?
  
   [beans]: http://www.beans.com \"beans are the new black\" 
  target new class external
  " :stream :none))) (lift:ensure-same (cl-markdown::properties (metabang.cl-containers:first-element (cl-markdown::link-info cl-markdown-test::doc))) (quote ((:target . "new") (:class . "external"))) :test (quote equalp)) (lift:ensure-same (cl-markdown::title (metabang.cl-containers:first-element (cl-markdown::link-info cl-markdown-test::doc))) "beans are the new black" :test (quote string=))))