FIx nil pointer exception

Author: codeboost

src/xitdb/hash_set.clj

@@ -16,7 +16,7 @@
     (throw (UnsupportedOperationException. "XITDBHashSet is read-only")))
 
   (contains [this k]
-    (not (nil? (.getCursor rhm (util/db-key (.hashCode k))))))
+    (not (nil? (.getCursor rhm (util/db-key (if (nil? k) 0 (.hashCode k)))))))
 
   (get [this k]
     (when (.contains this k)

test/xitdb/set_test.clj

@@ -81,5 +81,12 @@
       (is (= {:sweets #{:regular-candy :chupa-chups, :mochi :tiramisu}}
              (tu/materialize @db1))))))
 
+(deftest nil-test
+  (with-db [db (tu/test-db)]
+    (reset! db {:sweets #{nil :mochi}})
+    (testing "Handles nil correctly"
+      (let [sweets (:sweets @db)]
+        (is (true? (contains? sweets nil)))))))
+