Add TypeKeys() for testing indentation after keystrokes

Author: guns

clj/src/vim_clojure_static/test.clj

@@ -138,16 +138,16 @@
   [string & opts]
   (let [{:keys [in out pre keys]} (apply hash-map opts)
         test-file (str "tmp/test-indent-" (string/replace string #"[^\w-]" "-") ".clj")
-        vim-expr (format "IndentFile(%s)"
-                         (if keys
-                           (string/replace (pr-str keys) "\\\\" "\\")
-                           ""))]
+        vim-expr (if keys
+                   (format "TypeKeys(%s)" (string/replace (pr-str keys) "\\\\" "\\"))
+                   "IndentFile()")]
     `(with-transform-test ~string
        {:in ~in :out ~out}
        [tmp#]
        ;; FIXME: Too much file IO
+       (~io/make-parents ~test-file)
        (spit ~test-file "")
-       (~vim-exec ~test-file (slurp tmp#) ~vim-expr :pre ~pre)
+       (~vim-exec ~test-file (slurp tmp#) ~vim-expr ~@(when pre [:pre pre]))
        (spit tmp# (slurp ~test-file)))))
 
 (defn benchmark [n file buf & exprs]

clj/vim/test-runtime.vim

@@ -3,7 +3,7 @@
 execute 'set rtp=' . expand('%:p:h:h:h') . ',$VIMRUNTIME'
 filetype plugin indent on
 syntax on
-set synmaxcol=0
+set synmaxcol=0 backspace=2
 setfiletype clojure
 
 function! EDN(value)
@@ -20,8 +20,12 @@ function! ClojureSynIDNames()
 	return EDN(names)
 endfunction
 
-function! IndentFile(...)
-	if a:0 | execute 'normal! ' . a:1 | endif
+function! TypeKeys(keys)
+	execute 'normal! ' . a:keys
+	write
+endfunction
+
+function! IndentFile()
 	normal! gg=G
 	write
 endfunction