view src/testdir/test_environ.vim @ 17567:b25f81a18616 v8.1.1781

patch 8.1.1781: Amiga: no builtin OS readable version info commit https://github.com/vim/vim/commit/70576f70f789d6161068fbe126f29ad976e029e9 Author: Bram Moolenaar <Bram@vim.org> Date: Wed Jul 31 20:40:08 2019 +0200 patch 8.1.1781: Amiga: no builtin OS readable version info Problem: Amiga: no builtin OS readable version info. Solution: Add a "version" variable. (Ola S?der, closes https://github.com/vim/vim/issues/4753)
author Bram Moolenaar <Bram@vim.org>
date Wed, 31 Jul 2019 20:45:07 +0200
parents 4ba323df874a
children 4935244c1128
line wrap: on
line source

scriptencoding utf-8

func Test_environ()
  unlet! $TESTENV
  call assert_equal(0, has_key(environ(), 'TESTENV'))
  let $TESTENV = 'foo'
  call assert_equal(1, has_key(environ(), 'TESTENV'))
  let $TESTENV = 'こんにちわ'
  call assert_equal('こんにちわ', environ()['TESTENV'])
endfunc

func Test_getenv()
  unlet! $TESTENV
  call assert_equal(v:null, getenv('TESTENV'))
  let $TESTENV = 'foo'
  call assert_equal('foo', getenv('TESTENV'))
endfunc

func Test_setenv()
  unlet! $TESTENV
  call setenv('TEST ENV', 'foo')
  call assert_equal('foo', getenv('TEST ENV'))
  call setenv('TEST ENV', v:null)
  call assert_equal(v:null, getenv('TEST ENV'))
endfunc

func Test_external_env()
  call setenv('FOO', 'HelloWorld')
  if has('win32')
    let result = system('echo %FOO%')
  else
    let result = system('echo $FOO')
  endif
  let result = substitute(result, '[ \r\n]', '', 'g')
  call assert_equal('HelloWorld', result)

  call setenv('FOO', v:null)
  if has('win32')
    let result = system('set | findstr "^FOO="')
  else
    let result = system('env | grep ^FOO=')
  endif
  call assert_equal('', result)
endfunc