[146718] trunk/base/src/macports1.0/tests/reclaim.test

[raimue at macports.org]

Revision: 146718
          https://trac.macports.org/changeset/146718
Author:   raimue at macports.org
Date:     2016-03-15 10:55:59 -0700 (Tue, 15 Mar 2016)
Log Message:
-----------
Fix test for reclaim::walk_files

The test was probably written for a previous iteration of the implementation.
Now it will match the existing implementation.

Modified Paths:
--------------
    trunk/base/src/macports1.0/tests/reclaim.test

Modified: trunk/base/src/macports1.0/tests/reclaim.test
===================================================================
--- trunk/base/src/macports1.0/tests/reclaim.test	2016-03-15 17:54:18 UTC (rev 146717)
+++ trunk/base/src/macports1.0/tests/reclaim.test	2016-03-15 17:55:59 UTC (rev 146718)
@@ -89,6 +89,7 @@
     set bad_dist2   [file join $dir bad_distfile2.txt]
     set good_dist   [file join $dir good_distfile.txt]
     set dist_list   [list]
+    set unused_list [list]
 
     lappend dist_list $good_dist
 
@@ -103,11 +104,20 @@
     set $fd         [open $good_dist w] 
     close $fd
 
-    reclaim::walk_files $dir yes $dist_list 
+    reclaim::walk_files $dir $dist_list unused_list 
 
-    if {[file exists $bad_dist] || [file exists $bad_dist2] || [file exists $subdir] || ![file exists $good_dist] || ![file exists $dir]} {
-        return "FAIL: Did not delete the correct files, or deleted files that should not have been deleted."
+    if {[lsearch -exact $unused_list $bad_dist] == -1} {
+        return "FAIL: bad_dist should be deleted"
     }
+    if {[lsearch -exact $unused_list $bad_dist2] == -1} {
+        return "FAIL: bad_dist2 should be deleted"
+    }
+    if {[lsearch -exact $unused_list $good_dist] != -1} {
+        return "FAIL: good_dist should NOT be deleted"
+    }
+    if {[lsearch -exact $unused_list $dir] != -1} {
+        return "FAIL: good_dist should NOT be deleted"
+    }
 
     return "Successfully deleted all files that needed to be deleted."
 } -cleanup {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20160315/69355216/attachment.html>