view src/testdir/test_behave.vim @ 18761:e3785af3ba0f v8.1.2370

patch 8.1.2370: build problems on VMS Commit: https://github.com/vim/vim/commit/0c5c3faef2d54151a8c144539e3e5a3350fb18c7 Author: Bram Moolenaar <Bram@vim.org> Date: Sat Nov 30 22:38:16 2019 +0100 patch 8.1.2370: build problems on VMS Problem: Build problems on VMS. Solution: Adjust the build file. (Zoltan Arpadffy)
author Bram Moolenaar <Bram@vim.org>
date Sat, 30 Nov 2019 22:45:04 +0100
parents d4db9adc8642
children 08940efa6b4e
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