Mercurial > vim

annotate src/testdir/test_xxd.vim @ 23415:3ed012d8c315

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag v8.2.2250 for changeset 9bd3873b13e28022e1844d291f0e007a8e473a77
author Bram Moolenaar <Bram@vim.org>
date Wed, 30 Dec 2020 20:45:04 +0100
parents 08940efa6b4e
children 5690cf66ee07
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20784
diff changeset
2
13646
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 13638
diff changeset
3 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
4 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
5 elseif empty($XXD) || !executable($XXD)
17089
8e9e9124c7a2 patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents: 17049
diff changeset
6 throw 'Skipped: xxd program missing'
13646
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 13638
diff changeset
7 else
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 13638
diff changeset
8 let s:xxd_cmd = $XXD
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
9 endif
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
10
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13963
diff changeset
11 func PrepareBuffer(lines)
13638
b3068807f5df patch 8.0.1691: xxd test sometimes fails
Christian Brabandt <cb@256bit.org>
parents: 13634
diff changeset
12 new
b3068807f5df patch 8.0.1691: xxd test sometimes fails
Christian Brabandt <cb@256bit.org>
parents: 13634
diff changeset
13 call append(0, a:lines)
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
14 $d
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
15 endfunc
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
16
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13963
diff changeset
17 func s:Mess(counter)
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
18 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
19 endfunc
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
20
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13963
diff changeset
21 func Test_xxd()
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
22 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
23 set ff=unix
15627
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
24 w! XXDfile
13638
b3068807f5df patch 8.0.1691: xxd test sometimes fails
Christian Brabandt <cb@256bit.org>
parents: 13634
diff changeset
25
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
26 " 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
27 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
28 exe '%!' . s:xxd_cmd . ' %'
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
29 let expected = [
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
30 \ '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
31 \ '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
32 \ '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
33 \ '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
34 \ '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
35 \ '00000050: 0a .']
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
36 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
37
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
38 " Test 2: reverse the result
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
39 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
40 exe '%!' . s:xxd_cmd . ' -r'
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
41 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
42
15627
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
43 " Test 3: Skip the first 0x30 bytes
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
44 let s:test += 1
15627
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
45 for arg in ['-s 0x30', '-s0x30', '-s+0x30', '-skip 0x030', '-seek 0x30', '-seek +0x30 --']
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
46 exe '%!' . s:xxd_cmd . ' ' . arg . ' %'
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
47 call assert_equal(expected[3:], getline(1,'$'), s:Mess(s:test))
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
48 endfor
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
49
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
50 " Test 4: Skip the first 30 bytes
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
51 let s:test += 1
15627
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
52 for arg in ['-s -0x31', '-s-0x31']
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
53 exe '%!' . s:xxd_cmd . ' ' . arg . ' %'
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
54 call assert_equal(expected[2:], getline(1,'$'), s:Mess(s:test))
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
55 endfor
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
56
15647
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
57 " The following tests use the xxd man page.
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
58 " For these tests to pass, the fileformat must be "unix".
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
59 let man_copy = 'Xxd.1'
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
60 let man_page = '../../runtime/doc/xxd.1'
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
61 if has('win32') && !filereadable(man_page)
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
62 let man_page = '../../doc/xxd.1'
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
63 endif
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
64 %d
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
65 exe '0r ' man_page '| set ff=unix | $d | w' man_copy '| bwipe!' man_copy
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
66
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
67 " 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
68 let s:test += 1
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
69 %d
15647
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
70 exe '0r! ' . s:xxd_cmd . ' -l 120 -ps -c20 ' . man_copy
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
71 $d
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
72 let expected = [
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
73 \ '2e54482058584420312022417567757374203139',
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
74 \ '39362220224d616e75616c207061676520666f72',
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
75 \ '20787864220a2e5c220a2e5c222032317374204d',
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
76 \ '617920313939360a2e5c22204d616e2070616765',
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
77 \ '20617574686f723a0a2e5c2220202020546f6e79',
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
78 \ '204e7567656e74203c746f6e79407363746e7567']
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
79 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
80
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
81 " 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
82 let s:test += 1
15627
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
83 for arg in ['-l 13', '-l13', '-len 13']
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
84 %d
15647
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
85 exe '0r! ' . s:xxd_cmd . ' -s 0x36 ' . arg . ' -cols 13 ' . man_copy
15627
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
86 $d
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
87 call assert_equal('00000036: 3231 7374 204d 6179 2031 3939 36 21st May 1996', getline(1), s:Mess(s:test))
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
88 endfor
13638
b3068807f5df patch 8.0.1691: xxd test sometimes fails
Christian Brabandt <cb@256bit.org>
parents: 13634
diff changeset
89
15647
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
90 " Cleanup after tests 5 and 6
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
91 call delete(man_copy)
f7b88b1d3350 patch 8.1.0831: xxd test fails if man page has dos fileformat
Bram Moolenaar <Bram@vim.org>
parents: 15630
diff changeset
92
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
93 " Test 7: Print C include
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
94 let s:test += 1
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
95 call writefile(['TESTabcd09'], 'XXDfile')
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
96 %d
13646
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 13638
diff changeset
97 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
98 $d
16720
9c90cf08cfa8 patch 8.1.1362: code and data in tests can be hard to read
Bram Moolenaar <Bram@vim.org>
parents: 15647
diff changeset
99 let expected =<< trim [CODE]
17172
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
100 unsigned char XXDfile[] = {
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
101 0x54, 0x45, 0x53, 0x54, 0x61, 0x62, 0x63, 0x64, 0x30, 0x39, 0x0a
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
102 };
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
103 unsigned int XXDfile_len = 11;
16720
9c90cf08cfa8 patch 8.1.1362: code and data in tests can be hard to read
Bram Moolenaar <Bram@vim.org>
parents: 15647
diff changeset
104 [CODE]
9c90cf08cfa8 patch 8.1.1362: code and data in tests can be hard to read
Bram Moolenaar <Bram@vim.org>
parents: 15647
diff changeset
105
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
106 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
107
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
108 " Test 8: Print C include capitalized
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
109 let s:test += 1
15627
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
110 for arg in ['-C', '-capitalize']
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
111 call writefile(['TESTabcd09'], 'XXDfile')
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
112 %d
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
113 exe '0r! ' . s:xxd_cmd . ' -i ' . arg . ' XXDfile'
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
114 $d
16720
9c90cf08cfa8 patch 8.1.1362: code and data in tests can be hard to read
Bram Moolenaar <Bram@vim.org>
parents: 15647
diff changeset
115 let expected =<< trim [CODE]
17172
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
116 unsigned char XXDFILE[] = {
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
117 0x54, 0x45, 0x53, 0x54, 0x61, 0x62, 0x63, 0x64, 0x30, 0x39, 0x0a
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
118 };
6990c1160ea5 patch 8.1.1585: :let-heredoc does not trim enough
Bram Moolenaar <Bram@vim.org>
parents: 17089
diff changeset
119 unsigned int XXDFILE_LEN = 11;
16720
9c90cf08cfa8 patch 8.1.1362: code and data in tests can be hard to read
Bram Moolenaar <Bram@vim.org>
parents: 15647
diff changeset
120 [CODE]
15627
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
121 call assert_equal(expected, getline(1,'$'), s:Mess(s:test))
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
122 endfor
13638
b3068807f5df patch 8.0.1691: xxd test sometimes fails
Christian Brabandt <cb@256bit.org>
parents: 13634
diff changeset
123
b3068807f5df patch 8.0.1691: xxd test sometimes fails
Christian Brabandt <cb@256bit.org>
parents: 13634
diff changeset
124 " 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
125 let s:test += 1
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
126 call delete('XXDfile')
13638
b3068807f5df patch 8.0.1691: xxd test sometimes fails
Christian Brabandt <cb@256bit.org>
parents: 13634
diff changeset
127 bwipe! XXDfile
13646
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 13638
diff changeset
128 if has('unix')
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 13638
diff changeset
129 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
130 else
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 13638
diff changeset
131 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
132 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
133 call delete('Xinput')
86eb21bb5920 patch 8.0.1695: xxd test not run on MS-Windows
Christian Brabandt <cb@256bit.org>
parents: 13638
diff changeset
134 endif
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
135 call PrepareBuffer(readfile('XXDfile')[0])
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
136 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
137 call delete('XXDfile')
15627
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
138
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
139 " Test 10: group with 4 octets
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
140 let s:test += 1
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
141 for arg in ['-g 4', '-group 4', '-g4']
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
142 call writefile(['TESTabcd09'], 'XXDfile')
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
143 %d
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
144 exe '0r! ' . s:xxd_cmd . ' ' . arg . ' XXDfile'
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
145 $d
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
146 let expected = ['00000000: 54455354 61626364 30390a TESTabcd09.']
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
147 call assert_equal(expected, getline(1,'$'), s:Mess(s:test))
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
148 call delete('XXDfile')
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
149 endfor
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
150
15630
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
151 " Test 11: reverse with CR, hex upper, Postscript style with a TAB
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
152 let s:test += 1
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
153 call writefile([" 54455354\t610B6364 30390A TESTa\0x0bcd09.\r"], 'Xinput')
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
154 silent exe '!' . s:xxd_cmd . ' -r -p < Xinput > XXDfile'
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
155 let blob = readfile('XXDfile', 'B')
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
156 call assert_equal(0z54455354.610B6364.30390A, blob)
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
157 call delete('Xinput')
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
158 call delete('XXDfile')
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
159
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
160 " Test 12: reverse with seek
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
161 let s:test += 1
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
162 call writefile(["00000000: 54455354\t610B6364 30390A TESTa\0x0bcd09.\r"], 'Xinput')
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
163 silent exe '!' . s:xxd_cmd . ' -r -seek 5 < Xinput > XXDfile'
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
164 let blob = readfile('XXDfile', 'B')
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
165 call assert_equal(0z0000000000.54455354.610B6364.30390A, blob)
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
166 call delete('Xinput')
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
167 call delete('XXDfile')
db6cfc44eb65 patch 8.1.0823: not sufficient testing of xxd
Bram Moolenaar <Bram@vim.org>
parents: 15627
diff changeset
168
20601
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
169 " Test 13: simple, decimal offset
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
170 call PrepareBuffer(range(1,30))
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
171 set ff=unix
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
172 w! XXDfile
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
173 let s:test += 1
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
174 exe '%!' . s:xxd_cmd . ' -d %'
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
175 let expected = [
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
176 \ '00000000: 310a 320a 330a 340a 350a 360a 370a 380a 1.2.3.4.5.6.7.8.',
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
177 \ '00000016: 390a 3130 0a31 310a 3132 0a31 330a 3134 9.10.11.12.13.14',
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
178 \ '00000032: 0a31 350a 3136 0a31 370a 3138 0a31 390a .15.16.17.18.19.',
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
179 \ '00000048: 3230 0a32 310a 3232 0a32 330a 3234 0a32 20.21.22.23.24.2',
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
180 \ '00000064: 350a 3236 0a32 370a 3238 0a32 390a 3330 5.26.27.28.29.30',
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
181 \ '00000080: 0a .']
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
182 call assert_equal(expected, getline(1,'$'), s:Mess(s:test))
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
183
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
184 " Test 14: grouping with -d
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
185 let s:test += 1
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
186 let expected = [
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
187 \ '00000000: 310a320a 330a340a 350a360a 370a380a 1.2.3.4.5.6.7.8.',
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
188 \ '00000016: 390a3130 0a31310a 31320a31 330a3134 9.10.11.12.13.14',
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
189 \ '00000032: 0a31350a 31360a31 370a3138 0a31390a .15.16.17.18.19.',
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
190 \ '00000048: 32300a32 310a3232 0a32330a 32340a32 20.21.22.23.24.2',
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
191 \ '00000064: 350a3236 0a32370a 32380a32 390a3330 5.26.27.28.29.30',
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
192 \ '00000080: 0a .']
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
193 for arg in ['-g 4', '-group 4', '-g4']
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
194 exe '%!' . s:xxd_cmd . ' ' . arg . ' -d %'
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
195 call assert_equal(expected, getline(1,'$'), s:Mess(s:test))
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
196 endfor
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
197
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
198 " Test 15: cols with decimal offset: -c 21 -d
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
199 let s:test += 1
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
200 let expected = [
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
201 \ '00000000: 310a 320a 330a 340a 350a 360a 370a 380a 390a 3130 0a 1.2.3.4.5.6.7.8.9.10.',
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
202 \ '00000021: 3131 0a31 320a 3133 0a31 340a 3135 0a31 360a 3137 0a 11.12.13.14.15.16.17.',
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
203 \ '00000042: 3138 0a31 390a 3230 0a32 310a 3232 0a32 330a 3234 0a 18.19.20.21.22.23.24.',
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
204 \ '00000063: 3235 0a32 360a 3237 0a32 380a 3239 0a33 300a 25.26.27.28.29.30.']
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
205 exe '%!' . s:xxd_cmd . ' -c 21 -d %'
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
206 call assert_equal(expected, getline(1,'$'), s:Mess(s:test))
75ef263d09d6 patch 8.2.0854: xxd cannot show offset as a decimal number
Bram Moolenaar <Bram@vim.org>
parents: 17172
diff changeset
207
15627
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
208 " TODO:
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
209 " -o -offset
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
210
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
211 %d
20784
d7d6993fc266 patch 8.2.0944: xxd test leaves file behind
Bram Moolenaar <Bram@vim.org>
parents: 20601
diff changeset
212 bwipe!
d7d6993fc266 patch 8.2.0944: xxd test leaves file behind
Bram Moolenaar <Bram@vim.org>
parents: 20601
diff changeset
213 call delete('XXDfile')
13634
2678e38e1de6 patch 8.0.1689: no tests for xxd
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
214 endfunc
15627
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
215
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
216 " Various ways with wrong arguments that trigger the usage output.
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
217 func Test_xxd_usage()
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
218 for arg in ['-c', '-g', '-o', '-s', '-l', '-X', 'one two three']
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
219 new
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
220 exe 'r! ' . s:xxd_cmd . ' ' . arg
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
221 call assert_match("Usage:", join(getline(1, 3)))
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
222 bwipe!
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
223 endfor
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
224 endfunc
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
225
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
226 func Test_xxd_version()
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
227 new
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
228 exe 'r! ' . s:xxd_cmd . ' -v'
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
229 call assert_match("xxd V1.10 .* by Juergen Weigert", join(getline(1, 3)))
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
230 bwipe!
11879b89bb69 patch 8.1.0821: xxd "usage" output and other arguments not tested
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
231 endfunc
21765
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20784
diff changeset
232
08940efa6b4e patch 8.2.1432: various inconsistencies in test files
Bram Moolenaar <Bram@vim.org>
parents: 20784
diff changeset
233 " vim: shiftwidth=2 sts=2 expandtab