     :value))")))
 
 (deftest extracts-private-function-definitition-without-docstring-and-meta
-  (is (= (-extract-definition "private-function-definition-witout-docstring-and-meta" 31 37)
+  (is (= (-extract-definition "private-function-definition-witout-docstring-and-meta" 31 38)
          "(fn
   [foo]
   (do

    :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

             {:file (.getAbsolutePath (io/file "test/resources/extract_definition.clj"))
              :ns "resources.extract-definition"
              :line 44
              :column 14
              :name "if-let-bound"
              :dir "."})]
    (is (= (count (:occurrences res)) 1))
