mirror of
https://github.com/Raimondi/delimitMate.git
synced 2025-12-06 04:34:29 +08:00
108 lines
3.1 KiB
Tcl
108 lines
3.1 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
|
||
|
||
quotes autoclose-1 {} {} "i'x" "'x'"
|
||
|
||
quotes autoclose-2 {} {} "i'x\033u" {}
|
||
|
||
quotes autoclose-3 {} {} {i''x} {''x}
|
||
|
||
quotes autoclose-4 {} {''} "a\bx" {x}
|
||
|
||
set skipScript {expr "[string first {i\"} \"${input}\"] > -1 ? {badTest} : {}"}
|
||
quotes autoclose-5 {} "" "i'x\"" "'x\"'" {} ${skipScript}
|
||
|
||
quotes autoclose-6 {} {} "i@'x" "@'x'"
|
||
|
||
quotes autoclose-7 {} {@#} "a'x" "@'x'#"
|
||
|
||
#quotes autoclose-8 {} {} "'\<S-Tab>x" "''x"
|
||
|
||
single autoclose-8 {} {abc'} "A'" "abc'" {} {string cat toDo}
|
||
|
||
quotes autoclose-9 {} "abc\\" "A'x" {abc\'x}
|
||
|
||
quotes autoclose-10 {} {} "au'Привет'" "u'Привет'"
|
||
|
||
quotes autoclose-11 {} {} "au'string'" "u'string'"
|
||
|
||
set vimCmds [list {let g:delimitMate_autoclose = 0}]
|
||
quotes noautoclose-1 {} {} "a'x" "'x" ${vimCmds}
|
||
|
||
quotes noautoclose-2 {} {} "a''x" "'x'" ${vimCmds}
|
||
|
||
quotes noautoclose-3 {} {} "a'''x" "''x" ${vimCmds}
|
||
|
||
quotes noautoclose-4 {} {} "a''\bx" "x" ${vimCmds}
|
||
|
||
quotes noautoclose-5 {} {} "a@''x" "@'x'" ${vimCmds}
|
||
|
||
quotes noautoclose-6 {} "@#" "a''x" "@'x'#" ${vimCmds}
|
||
|
||
set vimCmds [list {let g:delimitMate_autoclose = 1}]
|
||
# Handle backspace gracefully.
|
||
lappend vimCmds {set backspace=}
|
||
quotes badBS-1 {} {} "a'\033a\bx" "'x'" ${vimCmds}
|
||
|
||
set vimCmds [list {set cpo=ces$}]
|
||
quotes cpo {} {} "a'x" "'x'" ${vimCmds}
|
||
|
||
# Make sure smart quote works beyond first column.
|
||
quotes beyond_first_column {} { } "a'x" " 'x'"
|
||
|
||
# smart quote, check fo char on the right.
|
||
quotes smart_quote-1 {} "a b" "la'" "a 'b"
|
||
|
||
# Make sure we jump over a quote on the right. #89.
|
||
quotes autoclose-12 {} {} "a('test'x" "('test'x)"
|
||
|
||
# Duplicate whole line when inserting quote at bol #105
|
||
quotes autoclose-13 {} "}" "i'" "''}"
|
||
|
||
quotes autoclose-14 {} "'abc " "A'" "'abc '"
|
||
|
||
quotes autoclose-15 {} "''abc " "A'" "''abc ''"
|
||
|
||
# Nesting quotes:
|
||
set vimCmds [list {let g:delimitMate_nesting_quotes = delimitMate#option('quotes')}]
|
||
quotes nesting-1 {} "''" "A'x" "'''x'''" ${vimCmds}
|
||
|
||
quotes nesting-2 {} "'''" "A'x" "''''x''''" ${vimCmds}
|
||
|
||
quotes nesting-3 {} {} "i''x" "''x" ${vimCmds}
|
||
|
||
quotes nesting-4 {} {} "i'x" "'x'" ${vimCmds}
|
||
|
||
set vimCmds [list]
|
||
|
||
# expand iabbreviations
|
||
set vimCmds [list {iabb def ghi}]
|
||
single iabbr {} {} {idef"} {ghi"} ${vimCmds}
|
||
|
||
set vimCmds [list]
|
||
|
||
quotes autoclose-16 {} {} "i'\n\b" "''"
|
||
|
||
# Double quote starts a comment in viml
|
||
set vimCmds [list {set ft=vim}]
|
||
single vim_comment {} {} {i"} {"} ${vimCmds}
|
||
|
||
#" Allow quote to exit from string when disabled by syntax group.
|
||
set vimCmds [list {syntax on}]
|
||
quotes disabled_syntax {} "'abc'" "\$i'x" "'abc'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:
|