fix: update ordered when removing items.

WIP: for unordered set

1 files changed, 8 insertions, 8 deletions

diff --git a/tests/macros.fnl b/tests/macros.fnl
index 29b5317..9ac9d95 100644
--- a/tests/macros.fnl
+++ b/tests/macros.fnl
@@ -18,9 +18,9 @@
     ;; different bodies are being used at compile time so worth testing
     (assert-eq (into [] {}) [])
     (assert-eq (into {} []) [])
-    (assert-eq (. (getmetatable (into [] {})) :cljlib/table-type) :seq)
-    (assert-eq (. (getmetatable (into {} [])) :cljlib/table-type) :table)
-    (let [a []] (assert-eq (. (getmetatable (into a a)) :cljlib/table-type) :seq))
+    (assert-eq (. (getmetatable (into [] {})) :cljlib/type) :seq)
+    (assert-eq (. (getmetatable (into {} [])) :cljlib/type) :table)
+    (let [a []] (assert-eq (. (getmetatable (into a a)) :cljlib/type) :seq))
 
     ;; can't transform table with more than one key-value pair, as order
     ;; is undeterminitive
@@ -189,17 +189,17 @@
 (deftest empty
   (testing "empty map"
     (assert-eq (empty {}) {})
-    (assert-eq (getmetatable (empty {})) {:cljlib/table-type :table})
+    (assert-eq (getmetatable (empty {})) {:cljlib/type :table})
     (let [a {:a 1 :b 2}]
       (assert-eq (empty a) {})
-      (assert-eq (getmetatable (empty a)) {:cljlib/table-type :table}))
+      (assert-eq (getmetatable (empty a)) {:cljlib/type :table}))
     (let [a {}]
       (assert-eq (empty a) [])
-      (assert-eq (getmetatable (empty a)) {:cljlib/table-type :empty})))
+      (assert-eq (getmetatable (empty a)) {:cljlib/type :empty})))
 
   (testing "empty seq"
     (assert-eq (empty []) {})
-    (assert-eq (getmetatable (empty [])) {:cljlib/table-type :seq})
+    (assert-eq (getmetatable (empty [])) {:cljlib/type :seq})
     (let [a [:a 1 :b 2]]
       (assert-eq (empty a) [])
-      (assert-eq (getmetatable (empty a)) {:cljlib/table-type :seq}))))
+      (assert-eq (getmetatable (empty a)) {:cljlib/type :seq}))))