Temp

temp.clj

;; Functional programming
(is (= "Item 'Foo' deleted successfully"
       (text "div.message")))

(is (some #{"Item 'Foo' deleted successfully"}
          (apply text (elements "div.message"))))
(is (= (count (elements "div.message")) 1))

;; Logic programming
(s (run* [q]
     (fresh [el text]
       (attributeo el "class" "message")
       (texto el text)
       (== q text))))

(s-as "Item 'Foo' deleted successfully"
      (run* [q]
        (fresh [el text]
           (attributeo el "class" "message")
           (texto el text)
           (== q text))