tests/exprsugar.test

   1 source [file dirname [info script]]/testing.tcl
   2
   3 needs constraint jim
   4
   5 # Test the expr-sugar syntax: $(...)
   6
   7 test exprsugar-1.1 {Simple operations} {
   8         set x $(2)
   9 } 2
  10 test exprsugar-1.2 {Simple operations} {
  11         set x $(-3)
  12 } -3
  13 test exprsugar-1.3 {Simple operations} {
  14         set x $(!0)
  15 } 1
  16 test exprsugar-1.4 {Simple operations} {
  17         set a 3
  18         set x $($a)
  19 } 3
  20 test exprsugar-1.5 {Simple operations} {
  21         set x $($a + 4)
  22 } 7
  23 test exprsugar-1.6 {Simple operations} {
  24         set x $(6 * 7 + 2)
  25 } 44
  26 test exprsugar-1.7 {Simple operations} {
  27         set a bb
  28         set x $($a in {aa bb cc})
  29 } 1
  30 test exprsugar-1.8 {Simple operations} {
  31         set a 1
  32         set x $($a ? "yes" : "no")
  33 } yes
  34 test exprsugar-1.9 {Simple operations} {
  35         set a 1
  36         set x $([incr a])
  37         list $a $x
  38 } {2 2}
  39 # expr sugar inside an expression is an error
  40 test exprsugar-1.10 {Simple operations} {
  41         catch {set x $(1 + $(5 * 7))}
  42 } 1
  43 test exprsugar-1.11 {Simple operations} {
  44         unset a
  45         set a(b) 3
  46         set x $(2 + $a(b))
  47 } 5
  48 test exprsugar-1.12 {Simple operations} {
  49         set x $((2 + 4))
  50 } 6
  51 # This necessary to ensure that things like exit will pass through expr-sugar
  52 test exprsugar-1.13 {Non-error return inside expr-sugar} -body {
  53         proc a {} { break }
  54         set x $([a])
  55 } -returnCodes break
  56
  57 testreport