hg.stevelosh.com > gundo.vim

tests/test-movement.vim @ 9d570ff17372 

Add g:gundo_playback_delay option

Allow for the option for setting the delay (in milliseconds) to be used
by the GundoPlayTo function in calling vim's sleep command during play
back.
author alvinfrancis <alvinfrancisdumalus@gmail.com>
date Mon, 15 Apr 2013 22:32:39 +0800
parents d1f332450ea3
children (none) 
UTSuite [Gundo] Testing Movement

function! s:Setup()"{{{
    exec 'edit test'
    call g:Goto('test')
endfunction"}}}
function! s:Teardown()"{{{
    if bufwinnr(bufnr('__Gundo__')) != -1
        exec bufwinnr(bufnr('__Gundo__')) . 'wincmd w'
        quit
    endif
    if bufwinnr(bufnr('__Gundo_Preview__')) != -1
        exec bufwinnr(bufnr('__Gundo_Preview__')) . 'wincmd w'
        quit
    endif
    if bufnr('__Gundo__') != -1
        exec 'bwipeout! ' . bufnr('__Gundo__')
    endif
    if bufnr('__Gundo_Preview__') != -1
        exec 'bwipeout! ' . bufnr('__Gundo_Preview__')
    endif
    if bufnr('test') != -1
        exec 'bwipeout! ' . bufnr('test')
    endif
    if bufnr('test2') != -1
        exec 'bwipeout! ' . bufnr('test2')
    endif
endfunction"}}}

function! s:TestMovementBasic()"{{{
    " Make three linear changes
    call g:TypeLineDone("ONE")
    call g:TypeLineDone("TWO")
    call g:TypeLineDone("THREE")

    " Open Gundo
    GundoToggle

    " Make sure we're on the newest/current state
    Assert g:CurrentLineContains("[3]")

    " Move down
    normal j
    Assert g:CurrentLineContains("[2]")

    " Move down
    normal j
    Assert g:CurrentLineContains("[1]")

    " Move down
    normal j
    Assert g:CurrentLineContains("[0]")

    " Move up
    normal k
    Assert g:CurrentLineContains("[1]")

    " Move up
    normal k
    Assert g:CurrentLineContains("[2]")

    " Move up
    normal k
    Assert g:CurrentLineContains("[3]")

    " Test arrow mappings

    " Move down
    exec "normal \<down>"
    Assert g:CurrentLineContains("[2]")

    " Move down
    exec "normal \<down>"
    Assert g:CurrentLineContains("[1]")

    " Move down
    exec "normal \<down>"
    Assert g:CurrentLineContains("[0]")

    " Move up
    exec "normal \<up>"
    Assert g:CurrentLineContains("[1]")

    " Move up
    exec "normal \<up>"
    Assert g:CurrentLineContains("[2]")

    " Move up
    exec "normal \<up>"
    Assert g:CurrentLineContains("[3]")
endfunction"}}}

function! s:TestMovementLinear()"{{{
    " Make four changes:
    "
    " o    [4]
    " |
    " | o  [3]
    " | |
    " o |  [2]
    " |/
    " o    [1]
    " |
    " o    [0] (original)

    call g:TypeLineDone("ONE")
    call g:TypeLineDone("TWO")
    silent! undo
    call g:TypeLineDone("THREE")
    silent! undo 2
    call g:TypeLineDone("FOUR")

    " Open Gundo
    GundoToggle

    " Make sure we're on the newest/current state
    Assert g:CurrentLineContains("[4]")

    " Move down
    normal j
    Assert g:CurrentLineContains("[3]")

    " Move down
    normal j
    Assert g:CurrentLineContains("[2]")

    " Move down
    normal j
    Assert g:CurrentLineContains("[1]")

    " Move down
    normal j
    Assert g:CurrentLineContains("[0]")

    " Move up
    normal k
    Assert g:CurrentLineContains("[1]")

    " Move up
    normal k
    Assert g:CurrentLineContains("[2]")

    " Move up
    normal k
    Assert g:CurrentLineContains("[3]")

    " Move up
    normal k
    Assert g:CurrentLineContains("[4]")
endfunction"}}}