tix/tests/hlist/HLHdr.tcl

   1 # This tests the "header" functions in HList
   2 #
   3 #
   4 # Assumptions:
   5 #       (1) add command OK
   6 #
   7
   8 proc test {cmd {result {}} {ret {}}} {
   9     if [catch {set ret [uplevel 1 $cmd]} err] {
  10         set done 0
  11         foreach r $result {
  12             if [regexp $r $err] {
  13                 puts "error message OK: $err"
  14                 set done 1
  15                 break
  16             }
  17         }
  18         if {!$done} {
  19             error $err
  20         }
  21     } else {
  22         puts "execution OK: $cmd"
  23     }
  24     return $ret
  25 }
  26
  27 set h [tixHList .h -header 1 -columns 2]
  28 pack $h -expand yes -fill both
  29 $h add hello -text hello
  30 $h add noind -text hello
  31
  32 test {$h header} {args}
  33 test {$h header bad} {unknown}
  34
  35 # Test for create
  36 #
  37 #
  38
  39 test {$h header create} {args}
  40 test {$h header create 3} {{exist}}
  41 test {$h header create 1 -itemtype} {missing}
  42 test {$h header create 1 -itemtype bad} {unknown}
  43 test {$h header create 1 -itemtype imagetext -text Hello -image [tix getimage folder]}
  44
  45
  46 # Test for cget
  47 #
  48 test {$h header cget} {args}
  49 test {$h header cget 0 -text} {does not have}
  50 test {$h header cget 1} {args}
  51 test {$h header cget 3 -text} {exist}
  52 test {$h header cget 1 arg arg} {args}
  53 test {$h header cget 1 -bad} {{unknown}}
  54 test {$h header cget 1 -text}
  55
  56 # Test for config
  57 #
  58 test {$h header config} {args}
  59 test {$h header config 3 -text} {exist}
  60 test {$h header config 0 -text} {does not have}
  61 test {$h header config 1 -bad} {{unknown}}
  62 test {$h header config 1}
  63 test {$h header config 1 -text}
  64 test {$h header config 1 -text Hi}
  65
  66 # Test for size
  67 #
  68 test {$h header size} {args}
  69 test {$h header size 0 0} {args}
  70 test {$h header size 4} {exist}
  71 test {$h header size 0} {not have}
  72 test {puts [$h header size 1]}
  73
  74
  75 # Test for exist
  76 #
  77 test {$h header exist} {args}
  78 test {$h header exist hello hi} {args}
  79 test {$h header exist 4} {exist}
  80 test {puts [$h header exist 0]}
  81 test {puts [$h header exist 1]}
  82
  83 # Test for delete
  84 #
  85 test {$h header delete} {args}
  86 test {$h header delete hello hi} {args}
  87 test {$h header delete 4} {exist}
  88 test {$h header delete 0} {not have}
  89 test {$h header delete 1}
  90
  91 # just do it again ..
  92 #
  93 test {$h header create 1 -itemtype imagetext -text Hello -image [tix getimage folder]}
  94