Added tests

Added the start of some basic tests and a ResultListSave function that
is used in them

Author: dkprice

plugin/EasyGrep.vim

@@ -334,7 +334,7 @@ let s:EasyGrepModeAll=0
 let s:EasyGrepModeBuffers=1
 let s:EasyGrepModeTracked=2
 let s:EasyGrepModeUser=3
-let s:EasyGrepNumModes = 4
+let s:EasyGrepNumModes=4
 
 " This is a special mode
 let s:EasyGrepModeMultipleChoice=4
@@ -3075,6 +3075,39 @@ function! s:ResultListDo(command)
 
 endfunction
 "}}}
+" ResultListSave {{{
+function! s:ResultListSave(f)
+    if filereadable(a:f)
+        let confirmed = confirm("File '".a:f."' exists; overwrite it?", "&Yes\n&No")-1
+        if confirmed
+            return
+        endif
+        call s:Echo("Proceeding to overwrite '".a:f."'")
+    endif
+
+    let lst = s:GetErrorList()
+
+    if empty(lst)
+        call s:Error("No result list to save")
+        return
+    endif
+
+    try
+        let contents = []
+        for e in lst
+            let line = bufname(e.bufnr)."|".e.lnum." col ".e.col."| ".e.text
+            call insert(contents, line, len(contents))
+        endfor
+
+        call writefile(contents, a:f)
+    catch
+        call s:Error("Error saving result list to '".a:f."'")
+        return
+    endtry
+
+    call s:Echo("Result list was saved to '".a:f."' successfully")
+endfunction
+"}}}
 " }}}
 " }}}
 
@@ -3090,6 +3123,7 @@ command! -bang ReplaceUndo :call s:ReplaceUndo("<bang>")
 command! -nargs=0 ResultListOpen :call s:ResultListOpen()
 command! -nargs=+ ResultListFilter :call s:ResultListFilter(<f-args>)
 command! -nargs=+ ResultListDo :call s:ResultListDo(<q-args>)
+command! -nargs=1 ResultListSave :call s:ResultListSave(<q-args>)
 "}}}
 " Keymaps {{{
 if !hasmapto("<plug>EgMapGrepOptions")

tests/README

@@ -0,0 +1,4 @@
+
+I'm just getting started here. Hopefully I'll be able to add more tests over time.
+
+These tests use runVimTests as a testing framework. It is expected to be located in its own directory two directories up; see runall.sh

tests/_setup.vim

@@ -0,0 +1,8 @@
+
+let g:EasyGrepDefaultUserPattern="alphabet.in"
+let g:EasyGrepMode=3
+let g:EasyGrepOpenWindowOnMatch=0
+let g:EasyGrepExtraWarnings=0
+let g:EasyGrepFileAssociations="../plugin/EasyGrepFileAssociations"
+source ../plugin/EasyGrep.vim
+

tests/alphabet.in

@@ -0,0 +1,52 @@
+a
+b
+c
+d
+e
+f
+g
+h
+i
+j
+k
+l
+m
+n
+o
+p
+q
+r
+s
+t
+u
+v
+w
+x
+y
+z
+A
+B
+C
+D
+E
+F
+G
+H
+I
+J
+K
+L
+M
+N
+O
+P
+Q
+R
+S
+T
+U
+V
+W
+X
+Y
+Z

tests/runall.sh

@@ -0,0 +1 @@
+bash ../../runVimTests/bin/runVimTests.sh --pure vimgrep.suite

tests/vimgrep.suite

@@ -0,0 +1 @@
+vimgrep_basic.vim

tests/vimgrep_basic.msgout

@@ -0,0 +1,12 @@
+
+"alphabet.in" 
+"alphabet.in" 52L, 104C
+  1 %a   "alphabet.in"                  line 1
+
+alphabet.in
+(1 of 1): c
+  1 %a   "alphabet.in"                  line 3
+
+alphabet.in
+(1 of 3): c
+[EasyGrep] Result list was saved to 'vimgrep_basic.out' successfully

tests/vimgrep_basic.ok

@@ -0,0 +1,3 @@
+alphabet.in|3 col 1| c
+alphabet.in|3 col 1| c
+alphabet.in|29 col 1| C

tests/vimgrep_basic.out

@@ -0,0 +1,3 @@
+alphabet.in|3 col 1| c
+alphabet.in|3 col 1| c
+alphabet.in|29 col 1| C

tests/vimgrep_basic.vim

@@ -0,0 +1,12 @@
+
+" Load the test data. 
+edit alphabet.in
+
+Grep c
+let g:EasyGrepIgnoreCase=1
+GrepAdd c
+
+ResultListSave vimgrep_basic.out
+quit!
+
+