diff --git a/README.md b/README.md index 4e4e974..06f95ea 100644 --- 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 [↟](#table-of-contents) - -```shell -rebar3 repl -``` - -or for Erlang: - -```shell -rebar3 shell -``` # Tests [↟](#table-of-contents) ```shell -rebar3 ltest +rebar3 as test ltest ``` ## Usage [↟](#table-of-contents) diff --git a/test/bombadil-tests.lfe b/test/bombadil-tests.lfe index a9387c1..92f751a 100644 --- 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"))))))