![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to expr.test CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / worm / scsi / tcl / tests|
Return to expr.test CVS log | Up to [Research Unix] / researchv10no / cmd / worm / scsi / tcl / tests |
1.1 ! root 1: # This file contains contains a collection of tests for the "expr" ! 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/expr.test,v 1.1 90/03/22 15:24:40 ouster Exp $ (Berkeley) ! 8: ! 9: proc check {a b num} { ! 10: if {$a != $b} { ! 11: error [format {Expr error %s: wanted "%s", got "%s"} $num $b $a]} ! 12: } ! 13: proc checkstr {a b num} { ! 14: if {[string compare $a $b] != 0} { ! 15: error [format {Expr error %s: wanted "%s", got "%s"} $num $b $a]} ! 16: } ! 17: ! 18: # First, test all of the operators individually. ! 19: ! 20: check [expr -4] -4 1.1 ! 21: check [expr -(1+4)] -5 1.2 ! 22: check [expr ~3] 0xfffffffc 1.3 ! 23: check [expr !2] 0 1.3 ! 24: check [expr !0] 1 1.4 ! 25: check [expr 4*6] 24 1.5 ! 26: check [expr 36/12] 3 1.6 ! 27: check [expr 27/4] 6 1.7 ! 28: check [expr 27%4] 3 1.8 ! 29: check [expr 2+2] 4 1.9 ! 30: check [expr 2-6] -4 1.10 ! 31: check [expr 1<<3] 8 1.11 ! 32: check [expr 0xff>>2] 0x3f 1.12 ! 33: check [expr -1>>2] -1 1.13 ! 34: check [expr 3>2] 1 1.14 ! 35: check [expr 2>2] 0 1.15 ! 36: check [expr 1>2] 0 1.16 ! 37: check [expr 3<2] 0 1.17 ! 38: check [expr 2<2] 0 1.18 ! 39: check [expr 1<2] 1 1.19 ! 40: check [expr 3>=2] 1 1.20 ! 41: check [expr 2>=2] 1 1.21 ! 42: check [expr 1>=2] 0 1.22 ! 43: check [expr 3<=2] 0 1.23 ! 44: check [expr 2<=2] 1 1.24 ! 45: check [expr 1<=2] 1 1.25 ! 46: check [expr 3==2] 0 1.26 ! 47: check [expr 2==2] 1 1.27 ! 48: check [expr 3!=2] 1 1.28 ! 49: check [expr 2!=2] 0 1.29 ! 50: check [expr 7&0x13] 3 1.30 ! 51: check [expr 7^0x13] 0x14 1.31 ! 52: check [expr 7|0x13] 0x17 1.32 ! 53: check [expr 0&&1] 0 1.33 ! 54: check [expr 0&&0] 0 1.34 ! 55: check [expr 1&&3] 1 1.35 ! 56: check [expr 0||1] 1 1.36 ! 57: check [expr 3||0] 1 1.37 ! 58: check [expr 0||0] 0 1.38 ! 59: check [expr 3>2?44:66] 44 1.39 ! 60: check [expr 2>3?44:66] 66 1.40 ! 61: ! 62: # Check precedence pairwise. ! 63: ! 64: check [expr -~3] 4 2.1 ! 65: check [expr -!3] 0 2.2 ! 66: check [expr -~0] 1 2.3 ! 67: ! 68: check [expr 2*4/6] 1 3.1 ! 69: check [expr 24/6*3] 12 3.2 ! 70: check [expr 24/6/2] 2 3.3 ! 71: ! 72: check [expr -2+4] 2 4.1 ! 73: check [expr -2-4] -6 4.2 ! 74: ! 75: check [expr 2*3+4] 10 5.1 ! 76: check [expr 8/2+4] 8 5.2 ! 77: check [expr 8%3+4] 6 5.3 ! 78: check [expr 2*3-1] 5 5.4 ! 79: check [expr 8/2-1] 3 5.5 ! 80: check [expr 8%3-1] 1 5.6 ! 81: ! 82: check [expr 6-3-2] 1 6.1 ! 83: ! 84: check [expr 7+1>>2] 2 7.1 ! 85: check [expr 7+1<<2] 32 7.2 ! 86: check [expr 7>>3-2] 3 7.3 ! 87: check [expr 7<<3-2] 14 7.4 ! 88: ! 89: check [expr 6>>1>4] 0 8.1 ! 90: check [expr 6>>1<2] 0 8.2 ! 91: check [expr 6>>1>=3] 1 8.3 ! 92: check [expr 6>>1<=2] 0 8.4 ! 93: check [expr 6<<1>5] 1 8.5 ! 94: check [expr 6<<1<5] 0 8.6 ! 95: check [expr 5<=6<<1] 1 8.7 ! 96: check [expr 5>=6<<1] 0 8.8 ! 97: ! 98: check [expr 2<3<4] 1 9.1 ! 99: check [expr 0<4>2] 0 9.2 ! 100: check [expr 4>2<1] 0 9.3 ! 101: check [expr 4>3>2] 0 9.4 ! 102: check [expr 4>3>=2] 0 9.5 ! 103: check [expr 4>=3>2] 0 9.6 ! 104: check [expr 4>=3>=2] 0 9.7 ! 105: check [expr 0<=4>=2] 0 9.8 ! 106: check [expr 4>=2<=0] 0 9.9 ! 107: check [expr 2<=3<=4] 1 9.10 ! 108: ! 109: check [expr 1==4>3] 1 10.1 ! 110: check [expr 0!=4>3] 1 10.2 ! 111: check [expr 1==3<4] 1 10.3 ! 112: check [expr 0!=3<4] 1 10.4 ! 113: check [expr 1==4>=3] 1 10.5 ! 114: check [expr 0!=4>=3] 1 10.6 ! 115: check [expr 1==3<=4] 1 10.7 ! 116: check [expr 0!=3<=4] 1 10.8 ! 117: ! 118: check [expr 1==3==3] 0 11.1 ! 119: check [expr 3==3!=2] 1 11.2 ! 120: check [expr 2!=3==3] 0 11.3 ! 121: check [expr 2!=1!=1] 0 11.3 ! 122: ! 123: check [expr 2&3==2] 0 12.1 ! 124: check [expr 1&3!=3] 0 12.2 ! 125: ! 126: check [expr 7&3^0x10] 0x13 13.1 ! 127: check [expr 7^0x10&3] 7 13.2 ! 128: ! 129: check [expr 7^0x10|3] 0x17 14.1 ! 130: check [expr 7|0x10^3] 0x17 14.2 ! 131: ! 132: check [expr 7|3&&1] 1 15.1 ! 133: check [expr 1&&3|7] 1 15.2 ! 134: ! 135: check [expr 0&&1||1] 1 15.3 ! 136: check [expr 1||1&&0] 1 15.4 ! 137: ! 138: check [expr 1||0?3:4] 3 16.1 ! 139: check [expr 1?0:4||1] 0 16.2 ! 140: ! 141: # Parentheses. ! 142: ! 143: check [expr (2+4)*6] 36 17.1 ! 144: check [expr (1?0:4)||1] 1 17.2 ! 145: ! 146: # Embedded commands and variable names. ! 147: ! 148: set a 16 ! 149: check [expr {2*$a}] 32 18.1 ! 150: check [expr {[set a] - 14}] 2 18.2 ! 151: ! 152: # Numbers in various bases. ! 153: ! 154: check [expr 0x20] 32 19.1 ! 155: check [expr 015] 13 19.2 ! 156: ! 157: # Various error conditions. ! 158: ! 159: check [catch {expr 2+a} msg] 1 20.1 ! 160: checkstr $msg {syntax error in expression "2+a"} 20.2 ! 161: check [catch {expr 2+4*} msg] 1 20.3 ! 162: check [catch {expr 2+4*(} msg] 1 20.4 ! 163: check [catch {expr 2+$_non_existent_} msg] 1 20.5 ! 164: checkstr $msg {couldn't find variable "_non_existent_"} 20.6 ! 165: set a xx ! 166: check [catch {expr {2+$a}} msg] 1 20.7 ! 167: checkstr $msg {variable "$a" contained non-numeric value "xx"} 20.8 ! 168: check [catch {expr {2+[set a]}} msg] 1 20.9 ! 169: checkstr $msg {command "set a" returned non-numeric result "xx"} 20.10 ! 170: check [catch {expr {2+(4}} msg] 1 20.11 ! 171: checkstr $msg {unmatched parentheses in expression "2+(4"} 20.12 ! 172: check [catch {expr 2/0} msg] 1 20.13 ! 173: checkstr $msg {divide by zero} 20.14 ! 174: check [catch {expr 2%0} msg] 1 20.15 ! 175: checkstr $msg {divide by zero} 20.16 ! 176: check [catch {expr 2#} msg] 1 20.17 ! 177: checkstr $msg {syntax error in expression "2#"} 20.18 ! 178: check [catch {expr 2?foo:1} msg] 1 20.19 ! 179: check [catch {expr 0?foo:1} msg] 1 20.20 ! 180: check [catch {expr 2?1:foo} msg] 1 20.21 ! 181: check [catch {expr 0?1:foo} msg] 1 20.22
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.