1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
" Test :hardcopy
func Test_printoptions()
edit test_hardcopy.vim
syn on
for opt in ['left:5in,right:10pt,top:8mm,bottom:2pc',
\ 'left:2in,top:30pt,right:16mm,bottom:3pc',
\ 'header:3,syntax:y,number:y,wrap:n',
\ 'header:3,syntax:n,number:y,wrap:y',
\ 'duplex:short,collate:n,jobsplit:y,portrait:n',
\ 'duplex:long,collate:y,jobsplit:n,portrait:y',
\ 'paper:10x14',
\ 'paper:A3',
\ 'paper:A4',
\ 'paper:A5',
\ 'paper:B4',
\ 'paper:B5',
\ 'paper:executive',
\ 'paper:folio',
\ 'paper:ledger',
\ 'paper:legal',
\ 'paper:letter',
\ 'paper:quarto',
\ 'paper:statement',
\ 'paper:tabloid',
\ 'formfeed:y',
\ '']
exe 'set printoptions=' .. opt
if has('postscript')
hardcopy > Xhardcopy_printoptions
let lines = readfile('Xhardcopy_printoptions')
call assert_true(len(lines) > 20, opt)
call assert_true(lines[0] =~ 'PS-Adobe', opt)
call delete('Xhardcopy_printoptions')
endif
endfor
call assert_fails('set printoptions=paper', 'E550:')
call assert_fails('set printoptions=shredder:on', 'E551:')
call assert_fails('set printoptions=left:no', 'E552:')
set printoptions&
bwipe
endfunc
func Test_printmbfont()
" Print a small help page which contains tabs to cover code that expands tabs to spaces.
help help
syn on
for opt in [':WadaMin-Regular,b:WadaMin-Bold,i:WadaMin-Italic,o:WadaMin-Bold-Italic,c:yes,a:no',
\ '']
exe 'set printmbfont=' .. opt
if has('postscript')
hardcopy > Xhardcopy_printmbfont
let lines = readfile('Xhardcopy_printmbfont')
call assert_true(len(lines) > 20, opt)
call assert_true(lines[0] =~ 'PS-Adobe', opt)
call delete('Xhardcopy_printmbfont')
endif
endfor
set printmbfont&
bwipe
endfunc
func Test_printexpr()
if !has('unix')
return
endif
" Not a very useful printexpr value, but enough to test
" hardcopy with 'printexpr'.
function PrintFile(fname)
call writefile(['Test printexpr: ' .. v:cmdarg],
\ 'Xhardcopy_printexpr')
call delete(a:fname)
return 0
endfunc
set printexpr=PrintFile(v:fname_in)
help help
hardcopy dummy args
call assert_equal(['Test printexpr: dummy args'],
\ readfile('Xhardcopy_printexpr'))
call delete('Xhardcopy_printexpr')
" Function return 1 to test print failure.
function PrintFails(fname)
call delete(a:fname)
return 1
endfunc
set printexpr=PrintFails(v:fname_in)
call assert_fails('hardcopy', 'E365:')
set printexpr&
bwipe
endfunc
func Test_errors()
" FIXME: Windows fails differently than Unix.
if has('unix')
edit test_hardcopy.vim
call assert_fails('hardcopy >', 'E324:')
bwipe
endif
endfunc
func Test_dark_background()
edit test_hardcopy.vim
syn on
for bg in ['dark', 'light']
exe 'set background=' .. bg
if has('postscript')
hardcopy > Xhardcopy_dark_background
let lines = readfile('Xhardcopy_dark_background')
call assert_true(len(lines) > 20)
call assert_true(lines[0] =~ 'PS-Adobe')
call delete('Xhardcopy_dark_background')
endif
endfor
set background&
bwipe
endfun
func Test_empty_buffer()
" FIXME: Unclear why this fails on Windows.
if has('unix')
new
call assert_equal("\nNo text to be printed", execute('hardcopy'))
bwipe
endif
endfunc
func Test_printheader_parsing()
" Only test that this doesn't throw an error.
set printheader=%<%f\ %h%m%r%=%-14.(%l,%c%V%)\ %P
set printheader=%<%f%h%m%r%=%b\ 0x%B\ \ %l,%c%V\ %P
set printheader=%<%f%=\ [%1*%M%*%n%R%H]\ %-19(%3l,%02c%03V%)%O'%02b'
set printheader=...%r%{VarExists('b:gzflag','\ [GZ]')}%h...
set printheader=
set printheader&
endfunc
func Test_fname_with_spaces()
if !has('postscript')
return
endif
split t\ e\ s\ t.txt
call setline(1, ['just', 'some', 'text'])
hardcopy > %.ps
call assert_true(filereadable('t e s t.txt.ps'))
call delete('t e s t.txt.ps')
bwipe!
endfunc
func Test_illegal_byte()
if !has('postscript') || &enc != 'utf-8'
return
endif
new
" conversion of 0xff will fail, this used to cause a crash
call setline(1, "\xff")
hardcopy >Xpstest
bwipe!
call delete('Xpstest')
endfunc
|
