Return to exec.test CVS log

Up to [Research Unix] / researchv10no / cmd / worm / scsi / tcl / tests

Annotation of researchv10no/cmd/worm/scsi/tcl/tests/exec.test, revision 1.1.1.1

1.1       root        1: # This file contains contains a collection of tests for the "exec"
                      2: # command in Tcl.  If everything is OK then it finishes silently.
                      3: # If a problem is detected then it generates a Tcl error with a
                      4: # cryptic message.  To trace the error you'll have to read through
                      5: # the commands in this file.
                      6: #
                      7: # $Header: /sprite/src/lib/tcl/tests/RCS/exec.test,v 1.1 90/04/16 17:28:54 ouster Exp $ (Berkeley)
                      8: 
                      9: proc check {a b num} {
                     10:     if {[string compare $a $b] != 0} {
                     11:        error [format {Exec error %s: wanted "%s", got "%s"} $num $b $a]}
                     12: }
                     13: 
                     14: # Basic operations.
                     15: 
                     16: set a [exec echo a b c]
                     17: check $a "a b c\n" 1.1
                     18: set a [exec wc < "a b c d" -w]
                     19: scan $a %d b
                     20: check $b 4 1.2
                     21: set a [exec cat < foo]
                     22: check $a foo 1.3
                     23: 
                     24: # Long input to test using file instead of pipe.  This also tests
                     25: # the ability to collect output in several steps.
                     26: 
                     27: set a "0123456789 xxxxxxxxx abcdefghi ABCDEFGHIJK\n"
                     28: set a [concat $a $a $a $a]
                     29: set a [concat $a $a $a $a]
                     30: set a [concat $a $a $a $a]
                     31: set a [concat $a $a $a $a]
                     32: set b [exec cat < $a]
                     33: check $a $b 1.4
                     34: 
                     35: # Error conditions.
                     36: 
                     37: check [catch {exec cat <} b] 1 2.1
                     38: check $b {specified "<" but no input in "exec" command} 2.2
                     39: check [catch {exec false} b] 1 2.3
                     40: check $b {} 2.4

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.