forked from aniani/vim
116 lines
3.7 KiB
VimL
116 lines
3.7 KiB
VimL
" Test for the xxd command
|
|
if empty($XXD) && executable('..\xxd\xxd.exe')
|
|
let s:xxd_cmd = '..\xxd\xxd.exe'
|
|
elseif empty($XXD) || !executable($XXD)
|
|
finish
|
|
else
|
|
let s:xxd_cmd = $XXD
|
|
endif
|
|
|
|
func! PrepareBuffer(lines)
|
|
new
|
|
call append(0, a:lines)
|
|
$d
|
|
endfunc
|
|
|
|
func! s:Mess(counter)
|
|
return printf("Failed xxd test %d:", a:counter)
|
|
endfunc
|
|
|
|
func! Test_xxd()
|
|
call PrepareBuffer(range(1,30))
|
|
set ff=unix
|
|
w XXDfile
|
|
|
|
" Test 1: simple, filter the result through xxd
|
|
let s:test = 1
|
|
exe '%!' . s:xxd_cmd . ' %'
|
|
let expected = [
|
|
\ '00000000: 310a 320a 330a 340a 350a 360a 370a 380a 1.2.3.4.5.6.7.8.',
|
|
\ '00000010: 390a 3130 0a31 310a 3132 0a31 330a 3134 9.10.11.12.13.14',
|
|
\ '00000020: 0a31 350a 3136 0a31 370a 3138 0a31 390a .15.16.17.18.19.',
|
|
\ '00000030: 3230 0a32 310a 3232 0a32 330a 3234 0a32 20.21.22.23.24.2',
|
|
\ '00000040: 350a 3236 0a32 370a 3238 0a32 390a 3330 5.26.27.28.29.30',
|
|
\ '00000050: 0a .']
|
|
call assert_equal(expected, getline(1,'$'), s:Mess(s:test))
|
|
|
|
" Test 2: reverse the result
|
|
let s:test += 1
|
|
exe '%!' . s:xxd_cmd . ' -r'
|
|
call assert_equal(map(range(1,30), {v,c -> string(c)}), getline(1,'$'), s:Mess(s:test))
|
|
|
|
" Test 3: Skip the first 30 bytes
|
|
let s:test += 1
|
|
exe '%!' . s:xxd_cmd . ' -s 0x30 %'
|
|
call assert_equal(expected[3:], getline(1,'$'), s:Mess(s:test))
|
|
|
|
" Test 4: Skip the first 30 bytes
|
|
let s:test += 1
|
|
exe '%!' . s:xxd_cmd . ' -s -0x31 %'
|
|
call assert_equal(expected[2:], getline(1,'$'), s:Mess(s:test))
|
|
|
|
" Test 5: Print 120 bytes as continuous hexdump with 20 octets per line
|
|
let s:test += 1
|
|
%d
|
|
let fname = '../../runtime/doc/xxd.1'
|
|
if has('win32') && !filereadable(fname)
|
|
let fname = '../../doc/xxd.1'
|
|
endif
|
|
exe '0r! ' . s:xxd_cmd . ' -l 120 -ps -c 20 ' . fname
|
|
$d
|
|
let expected = [
|
|
\ '2e54482058584420312022417567757374203139',
|
|
\ '39362220224d616e75616c207061676520666f72',
|
|
\ '20787864220a2e5c220a2e5c222032317374204d',
|
|
\ '617920313939360a2e5c22204d616e2070616765',
|
|
\ '20617574686f723a0a2e5c2220202020546f6e79',
|
|
\ '204e7567656e74203c746f6e79407363746e7567']
|
|
call assert_equal(expected, getline(1,'$'), s:Mess(s:test))
|
|
|
|
" Test 6: Print the date from xxd.1
|
|
let s:test += 1
|
|
%d
|
|
exe '0r! ' . s:xxd_cmd . ' -s 0x36 -l 13 -c 13 ' . fname
|
|
$d
|
|
call assert_equal('00000036: 3231 7374 204d 6179 2031 3939 36 21st May 1996', getline(1), s:Mess(s:test))
|
|
|
|
" Test 7: Print C include
|
|
let s:test += 1
|
|
call writefile(['TESTabcd09'], 'XXDfile')
|
|
%d
|
|
exe '0r! ' . s:xxd_cmd . ' -i XXDfile'
|
|
$d
|
|
let expected = ['unsigned char XXDfile[] = {',
|
|
\ ' 0x54, 0x45, 0x53, 0x54, 0x61, 0x62, 0x63, 0x64, 0x30, 0x39, 0x0a', '};',
|
|
\ 'unsigned int XXDfile_len = 11;']
|
|
call assert_equal(expected, getline(1,'$'), s:Mess(s:test))
|
|
|
|
" Test 8: Print C include capitalized
|
|
let s:test += 1
|
|
call writefile(['TESTabcd09'], 'XXDfile')
|
|
%d
|
|
exe '0r! ' . s:xxd_cmd . ' -i -C XXDfile'
|
|
$d
|
|
let expected = ['unsigned char XXDFILE[] = {',
|
|
\ ' 0x54, 0x45, 0x53, 0x54, 0x61, 0x62, 0x63, 0x64, 0x30, 0x39, 0x0a', '};',
|
|
\ 'unsigned int XXDFILE_LEN = 11;']
|
|
call assert_equal(expected, getline(1,'$'), s:Mess(s:test))
|
|
|
|
" Test 9: Create a file with containing a single 'A'
|
|
let s:test += 1
|
|
call delete('XXDfile')
|
|
bwipe! XXDfile
|
|
if has('unix')
|
|
call system('echo "010000: 41"|' . s:xxd_cmd . ' -r -s -0x10000 > XXDfile')
|
|
else
|
|
call writefile(['010000: 41'], 'Xinput')
|
|
silent exe '!' . s:xxd_cmd . ' -r -s -0x10000 < Xinput > XXDfile'
|
|
call delete('Xinput')
|
|
endif
|
|
call PrepareBuffer(readfile('XXDfile')[0])
|
|
call assert_equal('A', getline(1), s:Mess(s:test))
|
|
call delete('XXDfile')
|
|
%d
|
|
bw!
|
|
endfunc
|