              {:type Temperature :constraints ['(> 3 2)]}
              {:type Temperature :constraints ['(> 4 3)]}]]
          
-         (to-dnf
+         (com/to-dnf
           [:and
            [:or
             {:type Temperature :constraints ['(> 2 1)]}


(deftest test-simple-join-binding 
  (let [rule-output (atom nil)
        same-wind-and-temp (mk-rule [(Temperature (== ?t temperature))
                                      (WindSpeed (== ?t windspeed))] 
                                     (reset! rule-output ?t) )

        session (-> (mk-rulebase same-wind-and-temp) 
                    (mk-session)
                    (insert (->Temperature 10  "MCI"))
                    (insert (->WindSpeed 10  "MCI")))]


(deftest test-bean-support

  ;; Use TimeZone for this test as it is an available JavaBean-like object.
  (let [tz-offset-query (dsl/parse-query [:?offset]
                                  [[TimeZone (= ?offset rawOffset)
                                             (= ?id ID)]])
        
        session (-> (mk-session [tz-offset-query])
                    (insert (TimeZone/getTimeZone "America/Chicago")
                            (TimeZone/getTimeZone "UTC")))]

