clojure - これら 2 つのシーケンスが等しくないのはなぜですか?

Question

私の質問は、予想されるシーケンスと生成されたシーケンスが異なるのはなぜですか? 目視検査では理由がわかりません。

lein テストでは、関数 gen-map-keys によって返されたシーケンスを比較しています

(defn gen-map-keys
  "Takes a sequence, and turns it into viable keys for a map.
   We opt to change spaces ' ' to dashes '-'."

  [in-seq]
  (map #(-> % cstr/trim (cstr/replace " " "-") keyword) in-seq))

予想されるシーケンスに対して。テストの core.clj のシーケンスは次のとおりです。

(deftest test-kind-stat
  (let [existing-fnam "project.clj"
   existing-dir "test"
   non-existing-fnam "file-does-not-exist.not-exist"
   test-key-spaces1 '("COVERAGE DESCRIPTION" "BIL MO")
   test-key-spaces2 '("rectype" "parcel_id1" "parcel_id2" "parcel_id3" "house_num" alt_house_num")

   test-keys       '("key1" "key2" "key3")]

   (is (= '(:key1 :key2 :key3) (gen-map-keys test-keys)))
   (is (= '(:COVERAGE-DESCRIPTION :BILL-MO) (gen-map-keys test-key-spaces1)))
   (is (= '(:rectype :parcel_id1 :parcel_id2 :parcel_id3 :house_num :alt_house_num)            (gen-map-keys test-key-spaces2)))

lein テストの出力は次のとおりです。

FAIL in (test-kind-stat) (core.clj:33)
expected: (= (quote (:COVERAGE-DESCRIPTION :BILL-MO)) (gen-map-keys test-key-spaces1))
  actual: (not (= (:COVERAGE-DESCRIPTION :BILL-MO) (:COVERAGE-DESCRIPTION :BIL-MO)))

Ran 10 tests containing 41 assertions.
1 failures, 0 errors.

Answer 1

明らかに:parcelid2そうではありません:parcel_id2か？