Posted to tcl by thomas at Tue Sep 27 19:21:39 GMT 2011view raw

  1. # Bug #1 : why $foo1 != $foo2 !?
  2. cd C:/
  3.  
  4. set foo1 [file join [pwd] foo/]
  5. set foo2 [file join C:/ foo/]
  6.  
  7. puts "foo1=*$foo1*"
  8. puts "foo2=*$foo2*"
  9.  
  10. # Bug #2 : why normalize works differently for the same actual string !?
  11.  
  12. set fooFromStr "C:/foo/"
  13. if { $foo1 eq $fooFromStr } {
  14. puts "Yes, I'm not crazy, foo1 eq fooFromStr !"
  15. }
  16. puts "norm foo1 =*[file normalize $foo1 ]*"
  17. puts "normFormStr=*[file normalize $fooFromStr]*"