From 89db88c88083aaabba412662d9da10102f519b8d Mon Sep 17 00:00:00 2001
From: Andrey Orst <andreyorst@gmail.com>
Date: Mon, 26 Oct 2020 22:51:21 +0300
Subject: feature(core): add assoc function & test

---
 core_test.fnl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'core_test.fnl')

diff --git a/core_test.fnl b/core_test.fnl
index 38ce135..0367ae2 100644
--- a/core_test.fnl
+++ b/core_test.fnl
@@ -39,7 +39,8 @@
   : range
   : reverse
   : inc
-  : dec}
+  : dec
+  : assoc}
  (require :core))
 
 (deftest equality
@@ -241,7 +242,10 @@
     (assert-eq (rest {:a 1}) []))
 
   (testing reduce-kv
-    (assert-eq (reduce-kv #(+ $1 $3) 0 {:a 1 :b 2 :c 3}) 6)))
+    (assert-eq (reduce-kv #(+ $1 $3) 0 {:a 1 :b 2 :c 3}) 6))
+
+  (testing assoc
+    (assert-eq (assoc {} :a 1 :b 2 :c 3 :d 4) {:a 1 :b 2 :c 3 :d 4})))
 
 (deftest function-manipulation
   (testing constantly
-- 
cgit v1.2.3