Added threading test.

lfex · Nov 29, 2023 · 632b8b1 · 632b8b1
1 parent 3554f5d
commit 632b8b1
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 13 deletions.
diff --git a/README.md b/README.md
@@ -13,7 +13,6 @@
 
 * [About](#about-)
 * [Build](#build-)
-* [Start the Project REPL](#start-the-repl-)
 * [Tests](#tests-)
 * [Usage](#usage-)
 * [License](#license-)
@@ -32,22 +31,11 @@ convenience wrapper for tomerl, with just a touch of sugar on top.
 rebar3 compile
 ```
 
-# Start the Project REPL [&#x219F;](#table-of-contents)
-
-```shell
-rebar3 repl
-```
-
-or for Erlang:
-
-```shell
-rebar3 shell
-```
 
 # Tests [&#x219F;](#table-of-contents)
 
 ```shell
-rebar3 ltest
+rebar3 as test ltest
 ```
 
 ## Usage [&#x219F;](#table-of-contents)

diff --git a/test/bombadil-tests.lfe b/test/bombadil-tests.lfe
@@ -73,3 +73,10 @@
     (is-equal #"d" (bombadil:get data "c" #"d"))
     (is-equal #"bleep" (bombadil:get-in data '("a" "b") #"bleep"))
     (is-equal #"bloop" (bombadil:get-in data '("c" "d" "e") #"bloop"))))
+
+(deftest threading
+  (let ((`#(ok ,data) (bombadil:read "priv/testing/deep-sections.toml")))
+    (is-equal 42
+              (clj:-> data
+                      (bombadil:assoc-in '("a" "b" "d" "e") 42)
+                      (bombadil:get-in '("a" "b" "d" "e"))))))