Mercurial > vim

view src/testdir/test_behave.vim @ 25270:a3c07227ffde v8.2.3172

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.2.3172: MzScheme test fails Commit: https://github.com/vim/vim/commit/20c370d9f2ee89cb854054edf71f5004f6efff77 Author: Bram Moolenaar <Bram@vim.org> Date: Fri Jul 16 10:39:28 2021 +0200 patch 8.2.3172: MzScheme test fails Problem: MzScheme test fails. (Christian Brabandt) Solution: Correct function name.
author Bram Moolenaar <Bram@vim.org>
date Fri, 16 Jul 2021 10:45:04 +0200
parents 08940efa6b4e
children
line wrap: on
line source

" Test the :behave command

func Test_behave()
  behave mswin
  call assert_equal('mouse,key', &selectmode)
  call assert_equal('popup', &mousemodel)
  call assert_equal('startsel,stopsel', &keymodel)
  call assert_equal('exclusive', &selection)

  behave xterm
  call assert_equal('', &selectmode)
  call assert_equal('extend', &mousemodel)
  call assert_equal('', &keymodel)
  call assert_equal('inclusive', &selection)

  set selection&
  set mousemodel&
  set keymodel&
  set selection&
endfunc

func Test_behave_completion()
  call feedkeys(":behave \<C-A>\<C-B>\"\<CR>", 'tx')
  call assert_equal('"behave mswin xterm', @:)
endfunc

func Test_behave_error()
  call assert_fails('behave x', 'E475:')
endfunc

" vim: shiftwidth=2 sts=2 expandtab