src/testdir/test82.in

   1 Tests for case-insensitive UTF-8 comparisons (utf_strnicmp() in mbyte.c)
   2
   3 STARTTEST
   4 :so small.vim
   5 :if !has("multi_byte")
   6 : e! test.ok
   7 : w! test.out
   8 : qa!
   9 :endif
  10 :set enc=utf8
  11 ggdG
  12 :
  13 :function! Ch(a, op, b, expected)
  14 :  if eval(printf('"%s" %s "%s"', a:a, a:op, a:b)) != a:expected
  15 :    call append(line('$'), printf('"%s" %s "%s" should return %d', a:a, a:op, a:b, a:expected))
  16 :  else
  17 :    let b:passed += 1
  18 :  endif
  19 :endfunction
  20 :
  21 :function! Chk(a, b, result)
  22 :  if a:result == 0
  23 :    call Ch(a:a, '==?', a:b, 1)
  24 :    call Ch(a:a, '!=?', a:b, 0)
  25 :    call Ch(a:a, '<=?', a:b, 1)
  26 :    call Ch(a:a, '>=?', a:b, 1)
  27 :    call Ch(a:a, '<?', a:b, 0)
  28 :    call Ch(a:a, '>?', a:b, 0)
  29 :  elseif a:result > 0
  30 :    call Ch(a:a, '==?', a:b, 0)
  31 :    call Ch(a:a, '!=?', a:b, 1)
  32 :    call Ch(a:a, '<=?', a:b, 0)
  33 :    call Ch(a:a, '>=?', a:b, 1)
  34 :    call Ch(a:a, '<?', a:b, 0)
  35 :    call Ch(a:a, '>?', a:b, 1)
  36 :  else
  37 :    call Ch(a:a, '==?', a:b, 0)
  38 :    call Ch(a:a, '!=?', a:b, 1)
  39 :    call Ch(a:a, '<=?', a:b, 1)
  40 :    call Ch(a:a, '>=?', a:b, 0)
  41 :    call Ch(a:a, '<?', a:b, 1)
  42 :    call Ch(a:a, '>?', a:b, 0)
  43 :  endif
  44 :endfunction
  45 :
  46 :function! Check(a, b, result)
  47 :  call Chk(a:a, a:b, a:result)
  48 :  call Chk(a:b, a:a, -a:result)
  49 :endfunction
  50 :
  51 :function! LT(a, b)
  52 :  call Check(a:a, a:b, -1)
  53 :endfunction
  54 :
  55 :function! GT(a, b)
  56 :  call Check(a:a, a:b, 1)
  57 :endfunction
  58 :
  59 :function! EQ(a, b)
  60 :  call Check(a:a, a:b, 0)
  61 :endfunction
  62 :
  63 :let b:passed=0
  64 :call EQ('', '')
  65 :call LT('', 'a')
  66 :call EQ('abc', 'abc')
  67 :call EQ('Abc', 'abC')
  68 :call LT('ab', 'abc')
  69 :call LT('AB', 'abc')
  70 :call LT('ab', 'aBc')
  71 :call EQ('\xd0\xb9\xd1\x86\xd1\x83\xd0\xba\xd0\xb5\xd0\xbd', '\xd0\xb9\xd0\xa6\xd0\xa3\xd0\xba\xd0\x95\xd0\xbd')
  72 :call LT('\xd0\xb9\xd1\x86\xd1\x83\xd0\xba\xd0\xb5\xd0\xbd', '\xd0\xaf\xd1\x86\xd1\x83\xd0\xba\xd0\xb5\xd0\xbd')
  73 :call EQ('\xe2\x84\xaa', 'k')
  74 :call LT('\xe2\x84\xaa', 'kkkkkk')
  75 :call EQ('\xe2\x84\xaa\xe2\x84\xaa\xe2\x84\xaa', 'kkk')
  76 :call LT('kk', '\xe2\x84\xaa\xe2\x84\xaa\xe2\x84\xaa')
  77 :call EQ('\xe2\x84\xaa\xe2\x84\xa6k\xe2\x84\xaak\xcf\x89', 'k\xcf\x89\xe2\x84\xaakk\xe2\x84\xa6')
  78 :call EQ('Abc\x80', 'AbC\x80')
  79 :call LT('Abc\x80', 'AbC\x81')
  80 :call LT('Abc', 'AbC\x80')
  81 :call LT('abc\x80DEF', 'abc\x80def')  " case folding stops at the first bad character
  82 :call LT('\xc3XYZ', '\xc3xyz')
  83 :call EQ('\xef\xbc\xba', '\xef\xbd\x9a')  " FF3A (upper), FF5A (lower)
  84 :call GT('\xef\xbc\xba', '\xef\xbc\xff')  " first string is ok and equals \xef\xbd\x9a after folding, second string is illegal and was left unchanged, then the strings were bytewise compared
  85 :call LT('\xc3', '\xc3\x83')
  86 :call EQ('\xc3\xa3xYz', '\xc3\x83XyZ')
  87 :for n in range(0x60, 0xFF) | call LT(printf('xYz\x%.2X', n-1), printf('XyZ\x%.2X', n)) | endfor
  88 :for n in range(0x80, 0xBF) | call EQ(printf('xYz\xc2\x%.2XUvW', n), printf('XyZ\xc2\x%.2XuVw', n)) | endfor
  89 :for n in range(0xC0, 0xFF) | call LT(printf('xYz\xc2\x%.2XUvW', n), printf('XyZ\xc2\x%.2XuVw', n)) | endfor
  90 :call append(0, printf('%d checks passed', b:passed))
  91 :wq! test.out
  92 ENDTEST
  93