[36728] trunk/base/src/pextlib1.0/tests/unsetenv.tcl

[afb at macports.org]

Revision: 36728
          http://trac.macosforge.org/projects/macports/changeset/36728
Author:   afb at macports.org
Date:     2008-05-13 04:47:16 -0700 (Tue, 13 May 2008)

Log Message:
-----------
test the env CC problem explicitly

Modified Paths:
--------------
    trunk/base/src/pextlib1.0/tests/unsetenv.tcl

Modified: trunk/base/src/pextlib1.0/tests/unsetenv.tcl
===================================================================
--- trunk/base/src/pextlib1.0/tests/unsetenv.tcl	2008-05-13 11:44:03 UTC (rev 36727)
+++ trunk/base/src/pextlib1.0/tests/unsetenv.tcl	2008-05-13 11:47:16 UTC (rev 36728)
@@ -12,6 +12,18 @@
     
     unsetenv *
     puts [array get env]
+
+
+    set env(CC) "gcc"
+
+    array unset env CC
+    if {[info exists env(CC)]} {
+        puts "note: your TclUnsetEnv is broken... (need to use unsetenv too)"
+    }
+    unsetenv CC
+    if {[info exists env(CC)]} {
+        exit 1
+    }
 }
 
 main $argv

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080513/16bb0715/attachment-0001.html