load_lib "lrzsz.exp"if $tracelevel then {    strace $tracelevel}# check wether --newer option works# case a: should not work if existing file is youngerset name sz-newer-failexec mkdir $testdir/$nameexec cp -p $srcdir/../src/lrz.c $testdir/LRZ# so existing file ist younger.exec touch $testdir/$name/LRZset fail_is_ok 1set fails [runthem_internal $name $objdir/../src/lsz "-q --newer" \	$objdir/../src/lrz "-q" \	"$testdir/LRZ" "compare" dummy]unset fail_is_okif {[file size $testdir/$name/LRZ] != 0} {	send_log "file has been overwritten\n"	incr fails}if {$fails == 0} {	exec rm -rf $testdir/$name	pass "$name"} else {	fail "$name"}unset nameunset failsset name rz-newer-failexec mkdir $testdir/$nameexec cp -p $srcdir/../src/lrz.c $testdir/LRZ# so existing file ist younger.exec touch $testdir/$name/LRZset fail_is_ok 1set fails [runthem_internal $name $objdir/../src/lsz "-q" \	$objdir/../src/lrz "-q --newer" \	"$testdir/LRZ" "compare" dummy]unset fail_is_okif {[file size $testdir/$name/LRZ] != 0} {	send_log "file has been overwritten\n"	incr fails}if {$fails == 0} {	exec rm -rf $testdir/$name	pass "$name"} else {	fail "$name"}unset nameunset fails# check wether --newer option works# case b: should work if existing file is olderset name sz-newer-okexec mkdir $testdir/$nameexec cp -p $objdir/../src/lrz $testdir/LRZexec touch -r $srcdir/../src/lrz.c $testdir/$name/LRZset fails [runthem_internal $name $objdir/../src/lsz "-q --newer" \	"$objdir/../src/lrz" "-q" \	"$testdir/LRZ" "compare" dummy]if {$fails == 0} {	exec rm -rf $testdir/$name	pass "$name"} else {	fail "$name"}unset nameunset fails# case b: should work if existing file is olderset name rz-newer-okexec mkdir $testdir/$nameexec cp -p $objdir/../src/lrz $testdir/LRZexec touch -r $srcdir/../src/lrz.c $testdir/$name/LRZset fails [runthem_internal $name $objdir/../src/lsz "-q" \	"$objdir/../src/lrz" "-q --newer" \	"$testdir/LRZ" "compare" dummy]if {$fails == 0} {	exec rm -rf $testdir/$name	pass "$name"} else {	fail "$name"}unset nameunset fails# check wether --newer-or-longer option worksset name sz-newer-or-longerexec mkdir $testdir/$nameexec cp -p $srcdir/../src/lrz.c $testdir/LRZ# so existing file ist younger.exec touch $testdir/$name/LRZset fails [runthem_internal $name $objdir/../src/lsz "-q --newer-or-longer" \	"$objdir/../src/lrz" "-q" \	"$testdir/LRZ" "compare" dummy]if {[file size $testdir/$name/LRZ] == 0} {	send_log "file has not been overwritten\n"	incr fails}if {$fails == 0} {	exec rm -rf $testdir/$name	pass "$name"} else {	fail "$name"}unset nameunset failsset name rz-newer-or-longerexec mkdir $testdir/$nameexec cp -p $srcdir/../src/lrz.c $testdir/LRZ# so existing file ist younger.exec touch $testdir/$name/LRZset fails [runthem_internal $name $objdir/../src/lsz "-q" \	"$objdir/../src/lrz" "-q --newer-or-longer" \	"$testdir/LRZ" "compare" dummy]if {[file size $testdir/$name/LRZ] == 0} {	send_log "file has not been overwritten\n"	incr fails}if {$fails == 0} {	exec rm -rf $testdir/$name	pass "$name"} else {	fail "$name"}unset nameunset fails