tests/exists.test

   1 source [file dirname [info script]]/testing.tcl
   2
   3 needs cmd exists
   4 testConstraint lambda [expr {[info commands lambda] ne {}}]
   5
   6 test exists-1.1 "Exists var" {
   7         set a 1
   8         exists a
   9 } 1
  10
  11 test exists-1.1 "Exists var" {
  12         unset -nocomplain b
  13         exists b
  14 } 0
  15
  16 test exists-1.1 "Exists -var" {
  17         exists -var a
  18 } 1
  19
  20 test exists-1.1 "Exists -var" {
  21         exists -var b
  22 } 0
  23
  24 test exists-1.1 "Exists in proc" {
  25         proc a {name} { exists $name }
  26         a ::a
  27 } 1
  28
  29 test exists-1.1 "Exists in proc" {
  30         a ::b
  31 } 0
  32
  33 test exists-1.1 "Exists in proc" {
  34         a name
  35 } 1
  36
  37 test exists-1.1 "Exists in proc" {
  38         a none
  39 } 0
  40
  41 test exists-1.1 "Exists -proc" {
  42         exists -proc a
  43 } 1
  44
  45 test exists-1.1 "Exists -proc" {
  46         exists -proc bogus
  47 } 0
  48
  49 test exists-1.1 "Exists -proc" {
  50         exists -proc info
  51 } 0
  52
  53 test exists-1.1 "Exists -command" {
  54         exists -command a
  55 } 1
  56
  57 test exists-1.1 "Exists -command" {
  58         exists -command info
  59 } 1
  60
  61 test exists-1.1 "Exists -command" {
  62         exists -command bogus
  63 } 0
  64
  65 test exists-1.1 "Exists local lambda after exit" lambda {
  66         proc a {} {
  67                 local lambda {} {dummy}
  68         }
  69         exists -proc [a]
  70 } 0
  71
  72 test exists-1.1 "Exists local lambda" lambda {
  73         proc a {} {
  74                 exists -proc [local lambda {} {dummy}]
  75         }
  76         a
  77 } 1
  78
  79 testreport