annotate src/testdir/test_source_utf8.vim @ 19783:546bdeef35f1 v8.2.0448

patch 8.2.0448: various functions not properly tested Commit: https://github.com/vim/vim/commit/0e05de46226eb4e5ea580beefa71831f92d613d3 Author: Bram Moolenaar <Bram@vim.org> Date: Wed Mar 25 22:23:46 2020 +0100 patch 8.2.0448: various functions not properly tested Problem: Various functions not properly tested. Solution: Add more tests, especially for failures. (Yegappan Lakshmanan, closes #5843)
author Bram Moolenaar <Bram@vim.org>
date Wed, 25 Mar 2020 22:30:04 +0100
parents ac3f5096f438
children 08940efa6b4e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9898
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1 " Test the :source! command
18736
97d534e17874 patch 8.1.2358: tests fail on Cirrus CI for FreeBSD
Bram Moolenaar <Bram@vim.org>
parents: 15607
diff changeset
2 source check.vim
9898
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
3
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
4 func Test_source_utf8()
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
5 " check that sourcing a script with 0x80 as second byte works
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6 new
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
7 call setline(1, [':%s/àx/--à1234--/g', ':%s/Àx/--À1234--/g'])
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
8 write! Xscript
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
9 bwipe!
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
10 new
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
11 call setline(1, [' àx ', ' Àx '])
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
12 source! Xscript | echo
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
13 call assert_equal(' --à1234-- ', getline(1))
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
14 call assert_equal(' --À1234-- ', getline(2))
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
15 bwipe!
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
16 call delete('Xscript')
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
17 endfunc
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
18
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
19 func Test_source_latin()
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
20 " check that sourcing a latin1 script with a 0xc0 byte works
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
21 new
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
22 call setline(1, ["call feedkeys('r')", "call feedkeys('\xc0', 'xt')"])
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
23 write! Xscript
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
24 bwipe!
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
25 new
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
26 call setline(1, ['xxx'])
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
27 source Xscript
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
28 call assert_equal("\u00c0xx", getline(1))
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
29 bwipe!
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
30 call delete('Xscript')
bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
31 endfunc
12686
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
32
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
33 " Test for sourcing a file with CTRL-V's at the end of the line
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
34 func Test_source_ctrl_v()
19591
ac3f5096f438 patch 8.2.0352: FreeBSD: test for sourcing utf-8 is skipped
Bram Moolenaar <Bram@vim.org>
parents: 18736
diff changeset
35 call writefile(['map __1 afirst',
ac3f5096f438 patch 8.2.0352: FreeBSD: test for sourcing utf-8 is skipped
Bram Moolenaar <Bram@vim.org>
parents: 18736
diff changeset
36 \ 'map __2 asecond',
ac3f5096f438 patch 8.2.0352: FreeBSD: test for sourcing utf-8 is skipped
Bram Moolenaar <Bram@vim.org>
parents: 18736
diff changeset
37 \ 'map __3 athird',
ac3f5096f438 patch 8.2.0352: FreeBSD: test for sourcing utf-8 is skipped
Bram Moolenaar <Bram@vim.org>
parents: 18736
diff changeset
38 \ 'map __4 afourth',
ac3f5096f438 patch 8.2.0352: FreeBSD: test for sourcing utf-8 is skipped
Bram Moolenaar <Bram@vim.org>
parents: 18736
diff changeset
39 \ 'map __5 afifth',
ac3f5096f438 patch 8.2.0352: FreeBSD: test for sourcing utf-8 is skipped
Bram Moolenaar <Bram@vim.org>
parents: 18736
diff changeset
40 \ "map __1 asd\<C-V>",
ac3f5096f438 patch 8.2.0352: FreeBSD: test for sourcing utf-8 is skipped
Bram Moolenaar <Bram@vim.org>
parents: 18736
diff changeset
41 \ "map __2 asd\<C-V>\<C-V>",
ac3f5096f438 patch 8.2.0352: FreeBSD: test for sourcing utf-8 is skipped
Bram Moolenaar <Bram@vim.org>
parents: 18736
diff changeset
42 \ "map __3 asd\<C-V>\<C-V>",
ac3f5096f438 patch 8.2.0352: FreeBSD: test for sourcing utf-8 is skipped
Bram Moolenaar <Bram@vim.org>
parents: 18736
diff changeset
43 \ "map __4 asd\<C-V>\<C-V>\<C-V>",
ac3f5096f438 patch 8.2.0352: FreeBSD: test for sourcing utf-8 is skipped
Bram Moolenaar <Bram@vim.org>
parents: 18736
diff changeset
44 \ "map __5 asd\<C-V>\<C-V>\<C-V>",
ac3f5096f438 patch 8.2.0352: FreeBSD: test for sourcing utf-8 is skipped
Bram Moolenaar <Bram@vim.org>
parents: 18736
diff changeset
45 \ ], 'Xtestfile')
12686
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
46 source Xtestfile
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
47 enew!
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
48 exe "normal __1\<Esc>\<Esc>__2\<Esc>__3\<Esc>\<Esc>__4\<Esc>__5\<Esc>"
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
49 exe "%s/\<C-J>/0/g"
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
50 call assert_equal(['sd',
19591
ac3f5096f438 patch 8.2.0352: FreeBSD: test for sourcing utf-8 is skipped
Bram Moolenaar <Bram@vim.org>
parents: 18736
diff changeset
51 \ "map __2 asd\<Esc>secondsd\<Esc>sd0map __5 asd0fifth"],
ac3f5096f438 patch 8.2.0352: FreeBSD: test for sourcing utf-8 is skipped
Bram Moolenaar <Bram@vim.org>
parents: 18736
diff changeset
52 \ getline(1, 2))
12686
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
53
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
54 enew!
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
55 call delete('Xtestfile')
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
56 unmap __1
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
57 unmap __2
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
58 unmap __3
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
59 unmap __4
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
60 unmap __5
aa658b33f25a patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
61 endfunc