tests/expand.test

   1 source [file dirname [info script]]/testing.tcl
   2
   3 test expand-1.1 "Basic tests" {
   4         set a {1 2 3}
   5         set b {4 5 6}
   6         lappend a {*}$b
   7 } {1 2 3 4 5 6}
   8
   9 test expand-1.2 "Basic tests" jim {
  10         set a {1 2 3}
  11         set b {4 5 6}
  12         lappend a {expand}$b
  13 } {1 2 3 4 5 6}
  14
  15 test expand-1.3 "Basic tests" {
  16         set a {1 2 3}
  17         set b {4 5 6}
  18         lappend a *$b
  19 } {1 2 3 {*4 5 6}}
  20
  21 test expand-1.4 "Basic tests" {
  22         set a {1 2 3}
  23         set b {4 5 6}
  24         lappend a expand$b
  25 } {1 2 3 {expand4 5 6}}
  26
  27 testreport