1: # change to tmp dir
2:
3: set z8_test_files ""
4: set z_test_files ""
5: set y_test_files ""
6: set x_test_files ""
7: set objdir [absolute $objdir]
8: set srcdir [absolute $srcdir]
9:
10: set srcdir2 [exec sh -c "cd $srcdir/.. && pwd"]
11: set objdir2 [exec sh -c "cd $objdir/.. && pwd"]
12:
13: set SZBUFSIZE "-B 524288"
14: set RZBUFSIZE "-B 524288"
15: set env(LANG) C
16: #puts "LANG=$env(LANG)"
17:
18: foreach i [glob -nocomplain $srcdir/../src/l?z.c] {
19: set z_test_files "$z_test_files $i"
20: set x_test_files "$x_test_files $i"
21: }
22: foreach i [glob -nocomplain $objdir/../src/l?z] {
23: set z_test_files "$z_test_files $i"
24: set y_test_files "$y_test_files $i"
25: }
26: foreach i [glob -nocomplain /pub/gnu/emacs-*.tar.gz] {
27: set z8_test_files "$z8_test_files $i"
28: }
29: #puts "objdir=$objdir\n"
30: #puts "srcdir=$srcdir\n"
31: #puts "x_test_files=$x_test_files\n"
32: #puts "y_test_files=$y_test_files\n"
33: #puts "z_test_files=$z_test_files\n"
34: #puts "z8_test_files=$z8_test_files\n"
35:
36: # change to tmp dir
37: set TMPDIR [getenv TMPDIR]
38: #puts "T=$TMPDIR\n"
39: if [string compare "x$TMPDIR" "x"] then {
40: set MYTEMP "$TMPDIR"
41: } else {
42: set MYTEMP "/tmp"
43: }
44: set OLDDIR [pwd]
45: set testdir "$MYTEMP/test.lrzsz"
46: exec rm -rf $testdir
47: exec mkdir $testdir
48: exec sh -c "mkfifo $testdir/pipe || mknod $testdir/pipe p"
49:
50: proc runthem_internal { name sz szopts rz rzopts files flags up} {
51: global MYTEMP
52: global OLDDIR
53: global testdir
54: global verbose
55: global fail_is_ok
56: upvar $up up_p
57: if {[string match "*mkdir*" $flags] == 1} {
58: exec mkdir $testdir/$name
59: }
60: set fails 0
61: cd $MYTEMP
62: catch "exec sh -c \"($sz $szopts $files) <$testdir/pipe | \
63: (cd $testdir/$name ; exec $rz $rzopts >>../pipe)\"" dummy
64: set up_p $dummy
65: foreach i $files {
66: set bn [file tail $i]
67: set v $verbose
68: if {[string match "*compare*" $flags] == 1} {
69: set res [catch "exec cmp $i $testdir/$name/$bn" dummy]
70: set verbose $v
71: if {$res == 0} {
72: if {[string match "*delete*" $flags] == 1} {
73: catch "file delete $testdir/$name/$bn" dummy
74: }
75: } else {
76: send_log "$i: not identical: cmp told\n"
77: send_log "$dummy\n"
78: incr fails
79: }
80: } else {
81: if {[string match "*delete*" $flags] == 1} {
82: catch "file delete $testdir/$name/$bn" dummy
83: }
84: }
85: }
86: if {[string match "*rmdir*" $flags] == 1} {
87: set res [catch "exec rmdir $testdir/$name" dummy]
88: if {$res != 0} {
89: send_log "rmdir failed: $dummy\n"
90: incr fails
91: }
92: }
93: if [info exists "fail_is_ok"] {
94: if {$fails > 0} {
95: set fails 0;
96: } else {
97: set fails 1;
98: }
99: }
100: cd $OLDDIR
101: return $fails
102: }
103:
104: # own test function for xmodem: xmodem can't transfer file names
105: proc runxmodem { name sz szopts rz rzopts files } {
106: global MYTEMP
107: global OLDDIR
108: global testdir
109: global verbose
110: verbose "Testing $name" 1
111: exec mkdir $testdir/$name
112: set failed 0
113: cd $MYTEMP
114: foreach i $files {
115: set bn [file tail $i]
116: set output [catch "set done [exec sh -c "($sz $szopts --xmodem $i 2>/dev/null) \
117: <$testdir/pipe | \
118: (cd $testdir/$name ; exec $rz $rzopts --xmodem $bn >>../pipe 2>/dev/null)"]]"]
119: set res [catch "exec cmp $i $testdir/$name/$bn" dummy]
120: if {$res == 0} {
121: catch "file delete $testdir/$name/$bn" dummy
122: } else {
123: send_log "$i: not identical: cmp told\n"
124: send_log "$dummy\n"
125: set failed 1
126: }
127: }
128: set res [catch "exec rmdir $testdir/$name" dummy]
129: if {$res != 0} {
130: send_log "rmdir: $dummy\n"
131: set failed 1
132: }
133: cd $OLDDIR
134: if {$failed == 0} {
135: pass "$name"
136: } else {
137: fail "$name"
138: }
139: }
140:
141: proc runthem { name sz szopts rz rzopts files } {
142: verbose "Testing $name" 1
143: set fails [runthem_internal "$name" "$sz" "$szopts" "$rz" "$rzopts" \
144: "$files" "mkdir,compare,delete,rmdir" dummy]
145: if {$fails == 0} {
146: pass "$name"
147: } else {
148: fail "$name"
149: }
150: }
151:
152: proc runabuse { name sz szopts rz rzopts files } {
153: global fail_is_ok
154: global testdir
155:
156: set fail_is_ok 1
157: verbose "Testing $name" 1
158: set fails [runthem_internal "$name" "$sz" "$szopts" "$rz" "$rzopts" \
159: "$files" "mkdir" output]
160: if {$fails == 1 && [string match "*ZRINIT*" $output]} {
161: set fails 0
162: }
163: if {$fails == 1 && [string match "*Broken pipe*" $output]} {
164: set fails 0
165: }
166: if {$fails == 1 && [string match "*caught signal*" $output]} {
167: set fails 0
168: }
169: if {$fails == 1 && [string match "*exited abnormally*" $output]} {
170: set fails 0
171: }
172: if {$fails == 0} {
173: exec rm -rf "$testdir/$name"
174: pass "$name"
175: } else {
176: #puts "fails=$fails"
177: fail "$name"
178: }
179: unset fail_is_ok
180: }
181:
182: proc runthem0 { name sz szopts rz rzopts files } {
183: verbose "Testing $name (write to /dev/null)" 1
184: set fails [runthem_internal "$name" "$sz" "$szopts" "$rz" "$rzopts" \
185: "$files" "mkdir,rmdir" dummy]
186: if {$fails == 0} {
187: pass "$name"
188: } else {
189: fail "$name"
190: }
191: }
192:
193: proc runappend { name sz szopts rz rzopts file} {
194: global testdir
195: verbose "Testing $name" 1
196: set fails [runthem_internal "$name" "$sz" "$szopts" "$rz" "$rzopts" \
197: "$file $file" "mkdir" dummy]
198: if {$fails == 0} {
199: set compare "$testdir/$name/compare"
200: set bn [file tail $file]
201: exec rm -f $compare
202: exec cp $file $compare
203: exec cat $file >>$compare
204:
205: set res [catch "exec cmp $testdir/$name/$bn $compare" dummy]
206: if {$res != 0} {
207: incr fails
208: } else {
209: catch "file delete $testdir/$name/$bn" dummy
210: catch "file delete $compare" dummy
211: }
212: }
213: if {$fails == 0} {
214: set res [catch "exec rmdir $testdir/$name" dummy]
215: if {$res != 0} {
216: incr fails
217: }
218: }
219:
220: if {$fails == 0} {
221: pass "$name"
222: } else {
223: fail "$name"
224: }
225: }
226:
227: #
228: proc runrename { name sz szopts rz rzopts files} {
229: global testdir
230: verbose "Testing $name" 1
231: exec mkdir $testdir/$name
232: foreach i $files {
233: set bn [file tail $i]
234: exec touch "$testdir/$name/$bn"
235: exec echo "1234" ">$testdir/$name/$bn.0"
236: }
237: set fails [runthem_internal "$name" "$sz" "$szopts" "$rz" "$rzopts" \
238: "$files" "" dummy]
239: if {$fails == 0} {
240: foreach i $files {
241: set bn [file tail $i]
242: set f "$testdir/$name/$bn"
243: if {[file size $f] != 0} {
244: incr fails
245: send_log "$f: size !=0\n"
246: } else {
247: set s [file size $f.0]
248: if {$s == 0 || $s>5} {
249: incr fails
250: send_log "$f: size !=5\n"
251: } else {
252: set compare "$f.1"
253: set res [catch "exec cmp $i $compare" dummy]
254: if {$res != 0} {
255: incr fails
256: send_log "$f: compare failed\n"
257: } else {
258: catch "file delete $f" dummy
259: catch "file delete $f.0" dummy
260: catch "file delete $f.1" dummy
261: }
262: }
263: }
264: }
265: }
266: if {$fails == 0} {
267: set res [catch "exec rmdir $testdir/$name" dummy]
268: if {$res != 0} {
269: incr fails
270: }
271: }
272:
273: if {$fails == 0} {
274: pass "$name"
275: } else {
276: fail "$name"
277: }
278: }
279:
280: proc runresume { name sz szopts rz rzopts files} {
281: global testdir
282: global srcdir
283: verbose "Testing $name" 1
284: exec mkdir $testdir/$name
285: set trash $srcdir/../src/Makefile.in
286: foreach i $files {
287: set bn [file tail $i]
288: catch "exec dd if=$trash of=$testdir/$name/$bn bs=256 count=5" dummy
289: }
290:
291: set fails [runthem_internal "$name" "$sz" "$szopts" "$rz" "$rzopts" \
292: "$files" "" dummy]
293: if {$fails == 0} {
294: foreach i $files {
295: set bn [file tail $i]
296: set f "$testdir/$name/$bn"
297: set res [catch "exec cmp $i $f" dummy]
298: if {$res == 0} {
299: send_log "receiver did not resume but file is OK\n"
300: puts "receiver did not resume but file is OK - error, but not critical"
301: incr fails
302: } else {
303: catch "exec dd if=$i of=$f.1 bs=256 count=5" dummy
304: catch "exec dd if=$f bs=256 skip=5 >>$f.1" dummy
305: set res [catch "exec cmp $i $f.1" dummy]
306: if {$res == 0} {
307: catch "file delete $f" dummy
308: catch "file delete $f.1" dummy
309: } else {
310: send_log "sender resumed, but files differ. This is really bad\n"
311: puts "sender resumed, but files differ. This is really bad"
312: incr fails
313: }
314: }
315: }
316: }
317: if {$fails == 0} {
318: set res [catch "exec rmdir $testdir/$name" dummy]
319: if {$res != 0} {
320: incr fails
321: }
322: }
323:
324: if {$fails == 0} {
325: pass "$name"
326: } else {
327: fail "$name"
328: }
329: }
330:
331: # --protect option
332: proc runprotect { name sz szopts rz rzopts files} {
333: global testdir
334: verbose "Testing $name" 1
335: exec mkdir $testdir/$name
336: foreach i $files {
337: set bn [file tail $i]
338: exec touch "$testdir/$name/$bn"
339: }
340: set fails [runthem_internal "$name" "$sz" "$szopts" "$rz" "$rzopts" \
341: "$files" "" dummy]
342: foreach i $files {
343: set bn [file tail $i]
344: set f "$testdir/$name/$bn"
345: if {[file size $f] != 0} {
346: incr fails
347: send_log "$f: size !=0 - overwritten, nit protected\n"
348: } else {
349: catch "file delete $f" dummy
350: }
351: }
352: if {$fails == 0} {
353: set res [catch "exec rmdir $testdir/$name" dummy]
354: if {$res != 0} {
355: incr fails
356: }
357: }
358:
359: if {$fails == 0} {
360: pass "$name"
361: } else {
362: fail "$name"
363: }
364: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to lrzsz.exp CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lrzsz / testsuite / lib