   :value)")))
 
 (deftest extracts-single-char-sym
-  (is (= (-extract-definition "a" 52 7)
+  (is (= (-extract-definition "a" 52 8)
          "1")))

    :val))")))

(deftest extracts-private-var-no-docstring
  (is (= (-extract-definition "private-var-no-docstring" 34 2)
         ":value")))

(deftest extracts-private-var-no-docstring-no-value
  (is (= (-extract-definition "private-var-no-docstring-no-value" 35 2)
         "")))

(deftest extracts-private-var-with-docstring
  (is (= (-extract-definition "private-var-with-docstring" 36 2)
         ":value")))

(deftest extracts-var-with-docstringand-value
  (is (= (-extract-definition "var-with-docstring-and-value" 37 2)
         ":value")))

(deftest extracts-let-bound
  (is (= (-extract-definition "let-bound" 42 13)
         "(+ 1 2)")))

(deftest extracts-let-bound-multi-line
  (is (= (-extract-definition "let-bound-multi-line" 42 28)
         "(+ 1 (* 3 2)
                                (- 77 32) ; eol comment
                                (/ 9 3))")))

(deftest extracts-if-let-bound
  (is (= (-extract-definition "if-let-bound" 44 13)
         "(+ 11 17)")))

(deftest returns-meta-data

    :return))")))

(deftest extracts-private-function-definitition-with-docstring-no-meta
  (is (= (-extract-definition "private-function-definition-with-docstring-no-meta" 30 38)
         "(fn
  \"docstring\"
  [foo]
