   (= (read-clj edn) (read-clj json))
   ; This is a bad test because it is actually performing the same coercion that plan-schema should be doing.
   #_(let [edn-sorted (into (sorted-map) (keywordize (read-clj edn)))
-        json-sorted (into (sorted-map) (json->edn (read-clj json)))
-        equal? (= edn-sorted json-sorted)]
-    ;; DEBUGGING
-    ;; (when-not equal?
-    ;;   (spit (str edn ".sorted.edn") (with-out-str (pprint edn-sorted)))
-    ;;   (spit (str json ".sorted.edn") (with-out-str (pprint json-sorted))))
-    equal?))
+          json-sorted (into (sorted-map) (json->edn (read-clj json)))
+          equal? (= edn-sorted json-sorted)]
+      ;; DEBUGGING
+      ;; (when-not equal?
+      ;;   (spit (str edn ".sorted.edn") (with-out-str (pprint edn-sorted)))
+      ;;   (spit (str json ".sorted.edn") (with-out-str (pprint json-sorted))))
+      equal?))
 
 (deftest testing-check-coercion
   (testing "HTN and TPN Json coercion"

            [plan-schema.core :as psc]
            [clojure.java.io :as io]
            [clojure.string :as str]
            [clojure.pprint :refer :all])
  (:import [java.io.File]))

;; NOTE ["test/pamela/cannon.pamela" "(game.main)"]


        (when-not (compare-files htn-edn-clj htn-json-clj)
          ;; fake comparison to trigger unit test error
          (is (= htn-edn-clj htn-json-clj) (prn-str "files differ" htn-edn-clj htn-json-clj " See diff for details"))
          (println (:out (sh/sh "diff" "-u" htn-edn-clj htn-json-clj))))

        (when-not (compare-files tpn-edn-clj tpn-json-clj)
          (is (= tpn-edn-clj tpn-json-clj) (prn-str "files differ" tpn-edn-clj tpn-json-clj " See diff for details"))
          (println (:out (sh/sh "diff" "-u" tpn-edn-clj tpn-json-clj))))

        ))))

(defn check-shell []
  (sh/sh "ls"))