From 0841aa15876d7f4b4d02890713fe808aac918fcc Mon Sep 17 00:00:00 2001 From: nathanmarz Date: Thu, 1 Jun 2017 06:18:56 -0400 Subject: [PATCH] add another string nav test --- test/com/rpl/specter/core_test.cljc | 1 + 1 file changed, 1 insertion(+) diff --git a/test/com/rpl/specter/core_test.cljc b/test/com/rpl/specter/core_test.cljc index aabe105..412b2f3 100644 --- a/test/com/rpl/specter/core_test.cljc +++ b/test/com/rpl/specter/core_test.cljc @@ -1422,6 +1422,7 @@ (deftest string-navigation-test (is (= "ad" (setval (s/srange 1 3) "" "abcd"))) + (is (= "abcxd" (setval [(s/srange 1 3) s/END] "x" "abcd"))) (is (= "bc" (select-any (s/srange 1 3) "abcd"))) (is (= "ab" (setval s/END "b" "a"))) (is (= "ba" (setval s/BEGINNING "b" "a")))