vim: src/testdir/test_xxd.vim annotate

annotate src/testdir/test_xxd.vim @ 15406:63b02fcf1361 v8.1.0711

patch 8.1.0711: test files still use function! commit https://github.com/vim/vim/commit/1e1153600c0377472d62cc553173fe555ddcf5a7 Author: Bram Moolenaar <Bram@vim.org> Date: Wed Jan 9 23:01:02 2019 +0100 patch 8.1.0711: test files still use function! Problem: Test files still use function!. Solution: Remove the exclamation mark. Fix overwriting a function.

author	Bram Moolenaar <Bram@vim.org>
date	Wed, 09 Jan 2019 23:15:05 +0100
parents	1174611ad715
children	11879b89bb69

rev	line source
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	1 " Test for the xxd command
13646 86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	2 if empty($XXD) && executable('..\xxd\xxd.exe')
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	3 let s:xxd_cmd = '..\xxd\xxd.exe'
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	4 elseif empty($XXD) \|\| !executable($XXD)
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	5 finish
13646 86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	6 else
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	7 let s:xxd_cmd = $XXD
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	8 endif
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	9
15406 63b02fcf1361 patch 8.1.0711: test files still use function! Bram Moolenaar <Bram@vim.org> parents: 13963 diff changeset	10 func PrepareBuffer(lines)
13638 b3068807f5df patch 8.0.1691: xxd test sometimes fails Christian Brabandt <cb@256bit.org> parents: 13634 diff changeset	11 new
b3068807f5df patch 8.0.1691: xxd test sometimes fails Christian Brabandt <cb@256bit.org> parents: 13634 diff changeset	12 call append(0, a:lines)
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	13 $d
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	14 endfunc
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	15
15406 63b02fcf1361 patch 8.1.0711: test files still use function! Bram Moolenaar <Bram@vim.org> parents: 13963 diff changeset	16 func s:Mess(counter)
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	17 return printf("Failed xxd test %d:", a:counter)
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	18 endfunc
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	19
15406 63b02fcf1361 patch 8.1.0711: test files still use function! Bram Moolenaar <Bram@vim.org> parents: 13963 diff changeset	20 func Test_xxd()
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	21 call PrepareBuffer(range(1,30))
13646 86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	22 set ff=unix
13638 b3068807f5df patch 8.0.1691: xxd test sometimes fails Christian Brabandt <cb@256bit.org> parents: 13634 diff changeset	23 w XXDfile
b3068807f5df patch 8.0.1691: xxd test sometimes fails Christian Brabandt <cb@256bit.org> parents: 13634 diff changeset	24
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	25 " Test 1: simple, filter the result through xxd
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	26 let s:test = 1
13646 86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	27 exe '%!' . s:xxd_cmd . ' %'
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	28 let expected = [
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	29 \ '00000000: 310a 320a 330a 340a 350a 360a 370a 380a 1.2.3.4.5.6.7.8.',
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	30 \ '00000010: 390a 3130 0a31 310a 3132 0a31 330a 3134 9.10.11.12.13.14',
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	31 \ '00000020: 0a31 350a 3136 0a31 370a 3138 0a31 390a .15.16.17.18.19.',
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	32 \ '00000030: 3230 0a32 310a 3232 0a32 330a 3234 0a32 20.21.22.23.24.2',
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	33 \ '00000040: 350a 3236 0a32 370a 3238 0a32 390a 3330 5.26.27.28.29.30',
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	34 \ '00000050: 0a .']
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	35 call assert_equal(expected, getline(1,'$'), s:Mess(s:test))
13638 b3068807f5df patch 8.0.1691: xxd test sometimes fails Christian Brabandt <cb@256bit.org> parents: 13634 diff changeset	36
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	37 " Test 2: reverse the result
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	38 let s:test += 1
13646 86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	39 exe '%!' . s:xxd_cmd . ' -r'
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	40 call assert_equal(map(range(1,30), {v,c -> string(c)}), getline(1,'$'), s:Mess(s:test))
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	41
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	42 " Test 3: Skip the first 30 bytes
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	43 let s:test += 1
13646 86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	44 exe '%!' . s:xxd_cmd . ' -s 0x30 %'
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	45 call assert_equal(expected[3:], getline(1,'$'), s:Mess(s:test))
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	46
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	47 " Test 4: Skip the first 30 bytes
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	48 let s:test += 1
13646 86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	49 exe '%!' . s:xxd_cmd . ' -s -0x31 %'
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	50 call assert_equal(expected[2:], getline(1,'$'), s:Mess(s:test))
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	51
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	52 " Test 5: Print 120 bytes as continuous hexdump with 20 octets per line
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	53 let s:test += 1
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	54 %d
13963 1174611ad715 Vim 8.1 release Christian Brabandt <cb@256bit.org> parents: 13646 diff changeset	55 let fname = '../../runtime/doc/xxd.1'
1174611ad715 Vim 8.1 release Christian Brabandt <cb@256bit.org> parents: 13646 diff changeset	56 if has('win32') && !filereadable(fname)
1174611ad715 Vim 8.1 release Christian Brabandt <cb@256bit.org> parents: 13646 diff changeset	57 let fname = '../../doc/xxd.1'
1174611ad715 Vim 8.1 release Christian Brabandt <cb@256bit.org> parents: 13646 diff changeset	58 endif
1174611ad715 Vim 8.1 release Christian Brabandt <cb@256bit.org> parents: 13646 diff changeset	59 exe '0r! ' . s:xxd_cmd . ' -l 120 -ps -c 20 ' . fname
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	60 $d
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	61 let expected = [
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	62 \ '2e54482058584420312022417567757374203139',
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	63 \ '39362220224d616e75616c207061676520666f72',
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	64 \ '20787864220a2e5c220a2e5c222032317374204d',
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	65 \ '617920313939360a2e5c22204d616e2070616765',
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	66 \ '20617574686f723a0a2e5c2220202020546f6e79',
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	67 \ '204e7567656e74203c746f6e79407363746e7567']
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	68 call assert_equal(expected, getline(1,'$'), s:Mess(s:test))
13638 b3068807f5df patch 8.0.1691: xxd test sometimes fails Christian Brabandt <cb@256bit.org> parents: 13634 diff changeset	69
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	70 " Test 6: Print the date from xxd.1
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	71 let s:test += 1
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	72 %d
13963 1174611ad715 Vim 8.1 release Christian Brabandt <cb@256bit.org> parents: 13646 diff changeset	73 exe '0r! ' . s:xxd_cmd . ' -s 0x36 -l 13 -c 13 ' . fname
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	74 $d
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	75 call assert_equal('00000036: 3231 7374 204d 6179 2031 3939 36 21st May 1996', getline(1), s:Mess(s:test))
13638 b3068807f5df patch 8.0.1691: xxd test sometimes fails Christian Brabandt <cb@256bit.org> parents: 13634 diff changeset	76
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	77 " Test 7: Print C include
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	78 let s:test += 1
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	79 call writefile(['TESTabcd09'], 'XXDfile')
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	80 %d
13646 86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	81 exe '0r! ' . s:xxd_cmd . ' -i XXDfile'
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	82 $d
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	83 let expected = ['unsigned char XXDfile[] = {',
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	84 \ ' 0x54, 0x45, 0x53, 0x54, 0x61, 0x62, 0x63, 0x64, 0x30, 0x39, 0x0a', '};',
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	85 \ 'unsigned int XXDfile_len = 11;']
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	86 call assert_equal(expected, getline(1,'$'), s:Mess(s:test))
13638 b3068807f5df patch 8.0.1691: xxd test sometimes fails Christian Brabandt <cb@256bit.org> parents: 13634 diff changeset	87
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	88 " Test 8: Print C include capitalized
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	89 let s:test += 1
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	90 call writefile(['TESTabcd09'], 'XXDfile')
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	91 %d
13646 86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	92 exe '0r! ' . s:xxd_cmd . ' -i -C XXDfile'
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	93 $d
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	94 let expected = ['unsigned char XXDFILE[] = {',
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	95 \ ' 0x54, 0x45, 0x53, 0x54, 0x61, 0x62, 0x63, 0x64, 0x30, 0x39, 0x0a', '};',
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	96 \ 'unsigned int XXDFILE_LEN = 11;']
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	97 call assert_equal(expected, getline(1,'$'), s:Mess(s:test))
13638 b3068807f5df patch 8.0.1691: xxd test sometimes fails Christian Brabandt <cb@256bit.org> parents: 13634 diff changeset	98
b3068807f5df patch 8.0.1691: xxd test sometimes fails Christian Brabandt <cb@256bit.org> parents: 13634 diff changeset	99 " Test 9: Create a file with containing a single 'A'
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	100 let s:test += 1
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	101 call delete('XXDfile')
13638 b3068807f5df patch 8.0.1691: xxd test sometimes fails Christian Brabandt <cb@256bit.org> parents: 13634 diff changeset	102 bwipe! XXDfile
13646 86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	103 if has('unix')
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	104 call system('echo "010000: 41"\|' . s:xxd_cmd . ' -r -s -0x10000 > XXDfile')
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	105 else
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	106 call writefile(['010000: 41'], 'Xinput')
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	107 silent exe '!' . s:xxd_cmd . ' -r -s -0x10000 < Xinput > XXDfile'
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	108 call delete('Xinput')
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows Christian Brabandt <cb@256bit.org> parents: 13638 diff changeset	109 endif
13634 2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	110 call PrepareBuffer(readfile('XXDfile')[0])
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	111 call assert_equal('A', getline(1), s:Mess(s:test))
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	112 call delete('XXDfile')
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	113 %d
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	114 bw!
2678e38e1de6 patch 8.0.1689: no tests for xxd Christian Brabandt <cb@256bit.org> parents: diff changeset	115 endfunc

Mercurial > vim

annotate src/testdir/test_xxd.vim @ 15406:63b02fcf1361 v8.1.0711