mirror of
https://github.com/Raimondi/delimitMate.git
synced 2025-12-06 04:34:29 +08:00
49 lines
1.5 KiB
Tcl
49 lines
1.5 KiB
Tcl
# singleTest name desc setup input result vimCmds? skipScript?
|
|
#
|
|
# - desc can be empty and input would be used.
|
|
# - vimCmds is a list of ex commands.
|
|
# - skipScript will be evaluated in the scope of the function "single" and it
|
|
# should return a keywowd such as toDo, badTest or other as listed in the
|
|
# docs for tcltest. e.g.:
|
|
# {expr "[string first {i'} \"${input}\"] > -1 ? {emptyTest} : {}"}
|
|
# see tcltest documentation for other values.
|
|
|
|
# Get some help:
|
|
source helper.tcl
|
|
|
|
set vimCmds [list {let g:delimitMate_expand_space = 1}]
|
|
lappend vimCmds {let g:delimitMate_autoclose = 1}
|
|
|
|
pairs pairs-1 {} "" "i( x" "( x )" ${vimCmds}
|
|
|
|
pairs pairs-2 {} "( )" "la\bx" "(x)" ${vimCmds}
|
|
|
|
pairs pairs-3 {} "" "iabc x" "abc x" ${vimCmds}
|
|
|
|
quotes quotes-1 {} "" "i' x" "' x'" ${vimCmds}
|
|
|
|
lappend vimCmds {let g:delimitMate_expand_inside_quotes = 1}
|
|
quotes quotes-2 {} "" "i' x" "' x '" ${vimCmds}
|
|
|
|
quotes quotes-3 {} "" "i' \bx" "'x'" ${vimCmds}
|
|
|
|
set skipScript {string cat quoteBug}
|
|
lappend vimCmds {let g:delimitMate_autoclose = 0}
|
|
quotes quotes-4 {} "abc\\" "A'' x" "abc\\'' x '" ${vimCmds} ${skipScript}
|
|
|
|
# Issue #95
|
|
lappend vimCmds {let b:delimitMate_jump_expansion = 1}
|
|
set skipScript {string cat toDo}
|
|
pairs issue_95 {} "" "i( test)x" "( test )x" ${vimCmds} ${skipScript}
|
|
|
|
pairs pairs-4 {} "" "i() \bx" "(x)" ${vimCmds}
|
|
|
|
quotes quotes-5 {} "" "i'' \bx" "'x'" ${vimCmds}
|
|
|
|
|
|
|
|
################################################################
|
|
# This gives nice statistics and cleans up the mess left behind.
|
|
cleanupTests
|
|
# vim: set filetype=tcl et sw=2 sts=0 ts=8:
|