;; this package is here to translate into lust's weird dsl
(local {: view} (require :fennel))
(local {: expect} (require :test.lust))
;; lust uses weird terminology, but what I say is that "equal" is by __eq, "same" is by recursively having the same contents
(setmetatable {:equal #(do ((. (expect $1) :to :be) $2) true)
               :same  #(do ((. (expect $1) :to :equal) $2 $3) true)
               :nil #(do ((. (expect $1) :to_not :exist)) true)
               :not {:nil #(do ((. (expect $1) :to :exist)) true)
                     :same #(do ((. (expect $1) :to_not :equal) $2))}
               :truthy #(do ((. (expect $1) :to :be :truthy)) true)}
              {:__call #(do ((. (expect $2) :to :be :truthy)) true)})