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