set CWD [pwd]

proc TestGlob {dir} {
  puts "Executing \"glob -nocomplain -types {f l r} $dir/*\"..."
  puts [glob -nocomplain -types {f l r} $dir/*]
  puts "Executing \"glob -nocomplain -types {f l r} -directory $dir *\"..."
  puts [glob -nocomplain -types {f l r} -directory $dir *]
  puts {}
}

TestGlob $CWD
cd ..
puts "**** Changing Directory to \"[pwd]\"..."
TestGlob $CWD
