[25005] trunk/base/src/port1.0/tests/portutil.tcl

[source_changes at macosforge.org]

Revision: 25005
          http://trac.macosforge.org/projects/macports/changeset/25005
Author:   eridius at macports.org
Date:     2007-05-10 23:39:22 -0700 (Thu, 10 May 2007)

Log Message:
-----------
Add another test for delete command for the issue fixed in r25003

Modified Paths:
--------------
    trunk/base/src/port1.0/tests/portutil.tcl

Modified: trunk/base/src/port1.0/tests/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/tests/portutil.tcl	2007-05-11 06:36:59 UTC (rev 25004)
+++ trunk/base/src/port1.0/tests/portutil.tcl	2007-05-11 06:39:22 UTC (rev 25005)
@@ -40,12 +40,19 @@
             b/c/b           file
             b/d             file
         }
-    
+        
+        # test deleting a symlink
+        delete $root/a/c/b
+        
+        if {[file exists $root/a/c/b] || ![file exists $root/a/b]} {
+            error "delete (symlink) failed"
+        }
+        
         # test multiple args
         delete $root/a $root/b
-    
+        
         if {[file exists $root/a] || [file exists $root/b]} {
-            error "delete failed"
+            error "delete (multiple args) failed"
         }
     } finally {
         file delete -force $root

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070510/e6901b67/attachment.html