[25066] branches/dp2mp-move/base/src/port1.0/tests/portutil.tcl

[source_changes at macosforge.org]

Revision: 25066
          http://trac.macosforge.org/projects/macports/changeset/25066
Author:   jmpp at macports.org
Date:     2007-05-12 23:41:35 -0700 (Sat, 12 May 2007)

Log Message:
-----------
Merge Eridius' r25005: Add another test for delete command for the issue fixed in r25003.

Modified Paths:
--------------
    branches/dp2mp-move/base/src/port1.0/tests/portutil.tcl

Modified: branches/dp2mp-move/base/src/port1.0/tests/portutil.tcl
===================================================================
--- branches/dp2mp-move/base/src/port1.0/tests/portutil.tcl	2007-05-13 06:40:26 UTC (rev 25065)
+++ branches/dp2mp-move/base/src/port1.0/tests/portutil.tcl	2007-05-13 06:41:35 UTC (rev 25066)
@@ -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/20070512/8c624a1a/attachment.html