Return to manage.exp CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lrzsz / testsuite / lrzsz

Annotation of embedaddon/lrzsz/testsuite/lrzsz/manage.exp, revision 1.1.1.1

1.1       misho       1: load_lib "lrzsz.exp"
                      2: if $tracelevel then {
                      3:     strace $tracelevel
                      4: }
                      5: 
                      6: # File management test, Part 1: Append, sender initiated
                      7: runappend sender-init-append $objdir/../src/lsz "-q --append" \
                      8:        $objdir/../src/lrz "-q" \
                      9:        "$srcdir/../src/lsz.c"
                     10: 
                     11: # File management test, Part 2: Append, receiver initiated
                     12: runappend receiver-init-append $objdir/../src/lsz "-q" \
                     13:        $objdir/../src/lrz "-q --append" \
                     14:        "$srcdir/../src/lsz.c"
                     15: 
                     16: # File management test, Part 3: renaming, sender initiated
                     17: runrename sender-init-rename $objdir/../src/lsz "-q --rename" \
                     18:        $objdir/../src/lrz "-q" \
                     19:        "$z_test_files"
                     20: 
                     21: # File management test, Part 4: renaming, receiver initiated
                     22: runrename receiver-init-rename $objdir/../src/lsz "-q" \
                     23:        "$objdir/../src/lrz" "-q --rename" \
                     24:        "$z_test_files"
                     25: 
                     26: # File management test, Part 5: protecting, sender init
                     27: runprotect sender-init-protect $objdir/../src/lsz "-q --protect" \
                     28:        $objdir/../src/lrz "-q" \
                     29:        "$z_test_files"
                     30: 
                     31: # File management test, Part 6: protect, receiver initiated
                     32: runprotect receiver-init-protect $objdir/../src/lsz "-q" \
                     33:        "$objdir/../src/lrz" "-q --protect" \
                     34:        "$z_test_files"
                     35: 
                     36: # File management test, Part 7: sender wishes renaming, receiver overwriting.
                     37: runthem receiver-overwrite $objdir/../src/lsz "-q --rename" \
                     38:        $objdir/../src/lrz "-q --overwrite" \
                     39:        "$z_test_files"
                     40: 
                     41: # File management test, Part 8: sender to write only existing,
                     42: # but file does not exist
                     43: set fail_is_ok 1
                     44: runthem sender-overwrite-or-skip $objdir/../src/lsz "-q --overwrite-or-skip" \
                     45:        "$objdir/../src/lrz" "-q" \
                     46:        "$objdir/../src/lrz"
                     47: unset fail_is_ok
                     48: # Part 9: touch file ...
                     49: set name sender-overwrite-or-skip2
                     50: exec mkdir $testdir/$name
                     51: exec touch $testdir/$name/lrz
                     52: set fails [runthem_internal $name $objdir/../src/lsz "-q --overwrite-or-skip" \
                     53:        $objdir/../src/lrz "-q" \
                     54:        "$objdir/../src/lrz" "compare,delete,rmdir" dummy]
                     55: if {$fails == 0} {
                     56:        pass "$name"
                     57: } else {
                     58:        fail "$name"
                     59: }
                     60: unset name
                     61: 
                     62: 
                     63: exec logger 10
                     64: # Part 10: file exists, sender doesn't wish to overwrite
                     65: set name sender-overwrite-fail
                     66: exec mkdir $testdir/$name
                     67: exec touch $testdir/$name/lrz
                     68: set fail_is_ok 1
                     69: set fails [runthem_internal $name $objdir/../src/lsz "-q" \
                     70:        $objdir/../src/lrz "-q" \
                     71:        "$objdir/../src/lrz" "compare,delete,rmdir" dummy]
                     72: unset fail_is_ok
                     73: if {$fails == 0} {
                     74:        pass "$name"
                     75: } else {
                     76:        fail "$name"
                     77: }
                     78: unset name
                     79: 
                     80: exec logger 11
                     81: # Part 11: file exists, sender wishes to overwrite
                     82: set name sender-overwrite
                     83: exec mkdir $testdir/$name
                     84: exec touch $testdir/$name/lrz
                     85: set fails [runthem_internal $name $objdir/../src/lsz "-q --overwrite" \
                     86:        $objdir/../src/lrz "-q" \
                     87:        "$objdir/../src/lrz" "compare,delete,rmdir" dummy]
                     88: if {$fails == 0} {
                     89:        pass "$name"
                     90: } else {
                     91:        fail "$name"
                     92: }
                     93: unset name
                     94: 
                     95: exec logger 12
                     96: # part 12: sender unlinks.
                     97: set name sender-unlink
                     98: exec mkdir $testdir/$name
                     99: exec cp $objdir/../src/lrz $testdir/LRZ
                    100: set fails [runthem_internal $name $objdir/../src/lsz "-q --unlink" \
                    101:        $objdir/../src/lrz "-q" \
                    102:        "$testdir/LRZ" "" dummy]
                    103: if [file exists $testdir/LRZ] {
                    104:        incr fails
                    105:        send_log "sender failed to unlink file\n"
                    106: }
                    107: set res [catch "exec cmp $objdir/../src/lrz $testdir/$name/LRZ" dummy]
                    108: if {$res != 0} {
                    109:        send_log "$i: not identical: cmp told\n"
                    110:        send_log "$dummy\n"
                    111:        incr fails
                    112: }
                    113: if {$fails == 0} {
                    114:        pass "$name"
                    115: } else {
                    116:        fail "$name"
                    117: }
                    118: unset name
                    119: unset fails
                    120: 
                    121: