| Bram Moolenaar | ee2615a | 2016-07-02 18:25:34 +0200 | [diff] [blame^] | 1 | " Simplistic testing of Farsi mode. |
| 2 | |
| 3 | if !has('farsi') |
| 4 | finish |
| 5 | endif |
| 6 | " Farsi uses a single byte encoding. |
| 7 | set enc=latin1 |
| 8 | |
| 9 | func Test_farsi_toggle() |
| 10 | new |
| 11 | |
| 12 | set altkeymap |
| 13 | call assert_equal(0, &fkmap) |
| 14 | call assert_equal(0, &rl) |
| 15 | call feedkeys("\<F8>", 'x') |
| 16 | call assert_equal(1, &fkmap) |
| 17 | call assert_equal(1, &rl) |
| 18 | call feedkeys("\<F8>", 'x') |
| 19 | call assert_equal(0, &fkmap) |
| 20 | call assert_equal(0, &rl) |
| 21 | |
| 22 | set rl |
| 23 | " conversion from Farsi 3342 to Farsi VIM. |
| 24 | call setline(1, join(map(range(0x80, 0xff), 'nr2char(v:val)'), '')) |
| 25 | call feedkeys("\<F9>", 'x') |
| 26 | let exp = [0xfc, 0xf8, 0xc1, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7, |
| 27 | \ 0xc8, 0xc9, 0xca, 0xd0, 0xd1, 0xd2, 0xd3, 0xd6, |
| 28 | \ 0xd6, 0xd6, 0xd7, 0xd7, 0xd7, 0xd8, 0xd9, 0xda, |
| 29 | \ 0xdb, 0xdc, 0xdc, 0xc1, 0xdd, 0xde, 0xe0, 0xe0, |
| 30 | \ 0xe1, 0xa0, 0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, |
| 31 | \ 0xa7, 0xa8, 0xa9, 0xaa, 0xab, 0xac, 0xad, 0xae, |
| 32 | \ 0xaf, 0xb0, 0xb1, 0xb2, 0xb3, 0xb4, 0xb5, 0xb6, |
| 33 | \ 0xb7, 0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe, |
| 34 | \ 0xbf, 0xc0, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, |
| 35 | \ 0xc7, 0xc8, 0xc9, 0xca, 0xcb, 0xcc, 0xcd, 0xce, |
| 36 | \ 0xcf, 0xd0, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6, |
| 37 | \ 0xd7, 0xd8, 0xd9, 0xda, 0xdb, 0xdc, 0xdd, 0xde, |
| 38 | \ 0xdf, 0xe0, 0xe1, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, |
| 39 | \ 0xe7, 0xe8, 0xe9, 0xea, 0xeb, 0xfb, 0xfb, 0xfe, |
| 40 | \ 0xfe, 0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, |
| 41 | \ 0xf7, 0xf8, 0xf9, 0xfa, 0xfb, 0xfc, 0xfd, 0xfe, 0xe1, |
| 42 | \ ] |
| 43 | call assert_equal(join(map(exp, 'nr2char(v:val)'), ''), getline(1)) |
| 44 | |
| 45 | " conversion from Farsi VIM to Farsi 3342. |
| 46 | call setline(1, join(map(range(0x80, 0xff), 'nr2char(v:val)'), '')) |
| 47 | call feedkeys("\<F9>", 'x') |
| 48 | let exp = [0xfc, 0xf8, 0xc1, 0x83, 0x84, 0x85, 0x86, 0x87, |
| 49 | \ 0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x8d, 0x8e, 0x90, |
| 50 | \ 0x90, 0x90, 0x92, 0x93, 0x93, 0x95, 0x96, 0x97, |
| 51 | \ 0x98, 0xdc, 0x9a, 0x9b, 0x9c, 0x9e, 0x9e, 0xff, |
| 52 | \ 0xa0, 0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, 0xa7, |
| 53 | \ 0xa8, 0xa9, 0xaa, 0xab, 0xac, 0xad, 0xae, 0xaf, |
| 54 | \ 0xb0, 0xb1, 0xb2, 0xb3, 0xb4, 0xb5, 0xb6, 0xb7, |
| 55 | \ 0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe, 0xbf, |
| 56 | \ 0xc0, 0xc1, 0xc2, 0x83, 0x84, 0x85, 0x86, 0x87, |
| 57 | \ 0x88, 0x89, 0x8a, 0xcb, 0xcc, 0xcd, 0xce, 0xcf, |
| 58 | \ 0x8b, 0x8c, 0x8d, 0x8e, 0xd4, 0xd5, 0x90, 0x93, |
| 59 | \ 0x95, 0x96, 0x97, 0x98, 0x99, 0x9b, 0x9c, 0xdf, |
| 60 | \ 0x9d, 0xff, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7, |
| 61 | \ 0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xec, 0xee, 0xef, |
| 62 | \ 0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7, |
| 63 | \ 0xf8, 0xf9, 0xfa, 0xec, 0x80, 0xfd, 0xee, 0xff, |
| 64 | \ ] |
| 65 | call assert_equal(join(map(exp, 'nr2char(v:val)'), ''), getline(1)) |
| 66 | |
| 67 | bwipe! |
| 68 | endfunc |
| 69 | |
| 70 | func Test_farsi_map() |
| 71 | new |
| 72 | |
| 73 | set altkeymap |
| 74 | set rl |
| 75 | " RHS of mapping is reversed. |
| 76 | imap xyz abc |
| 77 | call feedkeys("axyz\<Esc>", 'tx') |
| 78 | call assert_equal('cba', getline(1)) |
| 79 | |
| 80 | set norl |
| 81 | iunmap xyz |
| 82 | set noaltkeymap |
| 83 | bwipe! |
| 84 | endfunc |