diff options
| -rw-r--r-- | tests/compExpr-old.test | 2 | ||||
| -rw-r--r-- | tests/expr-old.test | 2 | ||||
| -rw-r--r-- | tests/expr.test | 9 |
3 files changed, 7 insertions, 6 deletions
diff --git a/tests/compExpr-old.test b/tests/compExpr-old.test index bae26a0..80eb273 100644 --- a/tests/compExpr-old.test +++ b/tests/compExpr-old.test @@ -317,7 +317,7 @@ test compExpr-old-7.13 {CompileBitAndExpr: runtime error in bitand arm} { test compExpr-old-8.1 {CompileEqualityExpr: just relational expr} {expr 3>=2} 1 test compExpr-old-8.2 {CompileEqualityExpr: just relational expr} {expr 2<=2.1} 1 test compExpr-old-8.3 {CompileEqualityExpr: just relational expr} {expr 3.2>"2.2"} 1 -test compExpr-old-8.4 {CompileEqualityExpr: just relational expr} {expr {"0y"<"0x12"}} 0 +test compExpr-old-8.4 {CompileEqualityExpr: just relational expr} {expr {"0y"<"0x12"}} 1 test compExpr-old-8.5 {CompileEqualityExpr: error in relational expr} -body { expr x>3 } -returnCodes error -match glob -result * diff --git a/tests/expr-old.test b/tests/expr-old.test index 3adfb63..113e449 100644 --- a/tests/expr-old.test +++ b/tests/expr-old.test @@ -244,7 +244,7 @@ test expr-old-4.13 {string operators} {expr {"abc" == "abd"}} 0 test expr-old-4.14 {string operators} {expr {"abd" == "abd"}} 1 test expr-old-4.15 {string operators} {expr {"abc" != "abd"}} 1 test expr-old-4.16 {string operators} {expr {"abd" != "abd"}} 0 -test expr-old-4.17 {string operators} {expr {"0y" < "0x12"}} 0 +test expr-old-4.17 {string operators} {expr {"0y" < "0x12"}} 1 test expr-old-4.18 {string operators} {expr {"." < " "}} 0 test expr-old-4.19 {string operators} {expr {"abc" eq "abd"}} 0 test expr-old-4.20 {string operators} {expr {"abd" eq "abd"}} 1 diff --git a/tests/expr.test b/tests/expr.test index 4046411..55f5485 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -341,7 +341,8 @@ test expr-7.20 {CompileBitAndExpr: error in equality expr} -body { test expr-8.1 {CompileEqualityExpr: just relational expr} {expr 3>=2} 1 test expr-8.2 {CompileEqualityExpr: just relational expr} {expr 2<=2.1} 1 test expr-8.3 {CompileEqualityExpr: just relational expr} {expr 3.2>"2.2"} 1 -test expr-8.4 {CompileEqualityExpr: just relational expr} {expr {"0y"<"0x12"}} 0 +test expr-8.4 {CompileEqualityExpr: just relational expr} {expr {"0y"<"0x12"}} 1 +test expr-8.4a {CompileEqualityExpr: just relational expr} {expr {"0y"<0x12}} 1 test expr-8.5 {CompileEqualityExpr: error in relational expr} -body { expr x>3 } -returnCodes error -match glob -result * @@ -360,7 +361,7 @@ test expr-8.13 {CompileBitAndExpr: equality expr} {expr {"\374" eq [set s \u00fc test expr-8.14 {CompileBitAndExpr: equality expr} {expr 3eq2} 0 test expr-8.15 {CompileBitAndExpr: equality expr} {expr 2.0eq2} 0 test expr-8.16 {CompileBitAndExpr: equality expr} {expr 3.2ne2.2} 1 -test expr-8.17 {CompileBitAndExpr: equality expr} {expr 01eq1} 0 +test expr-8.17 {CompileBitAndExpr: equality expr} {expr 01eq1} 1 test expr-8.18 {CompileBitAndExpr: equality expr} {expr {"abc" eq "abd"}} 0 test expr-8.19 {CompileBitAndExpr: equality expr} {expr {"abc" ne "abd"}} 1 test expr-8.20 {CompileBitAndExpr: error in equality expr} -body { @@ -385,7 +386,7 @@ test expr-8.25 {CompileEqualityExpr: simple equality exprs} { } 1 test expr-8.26 {CompileEqualityExpr: simple equality exprs} { expr {"0x12 " eq "0x12"} -} 0 +} 1 test expr-8.27 {CompileEqualityExpr: simple equality exprs} { expr {"1.0e100000000" == "0.0"} } 0 @@ -397,7 +398,7 @@ test expr-8.29 {CompileEqualityExpr: just relational expr} { set v1 "0y" set v2 "0x12" expr {$v1 < $v2} -} 0 +} 1 test expr-8.30 {CompileEqualityExpr: simple equality exprs} { expr {"fake" != "bob"} } 1 |