Revision: 108485 https://trac.macports.org/changeset/108485 Author: marius@macports.org Date: 2013-07-24 03:42:41 -0700 (Wed, 24 Jul 2013) Log Message: ----------- portclean.test: added archive check Modified Paths: -------------- branches/gsoc13-tests/src/port1.0/tests/portclean.test Modified: branches/gsoc13-tests/src/port1.0/tests/portclean.test =================================================================== --- branches/gsoc13-tests/src/port1.0/tests/portclean.test 2013-07-24 10:13:01 UTC (rev 108484) +++ branches/gsoc13-tests/src/port1.0/tests/portclean.test 2013-07-24 10:42:41 UTC (rev 108485) @@ -8,6 +8,7 @@ mportinit source ../portclean.tcl +source ../port_autoconf.tcl proc getportlogpath {id {portname ""}} { global macports::portdbpath @@ -115,6 +116,8 @@ test clean_work { Clean work unit test. } -body { + if {[getuid] != 0} {return "FAIL: not root, skipping test"} + set usealtworkpath no set altprefix $pwd/prefix set portpath portpath @@ -157,6 +160,8 @@ test clean_logs { Clean logs unit test. } -body { + if {[getuid] != 0} {return "FAIL: not root, skipping test"} + set portpath $pwd/portpath set logpath [getportlogpath $portpath] set subport $logpath/subport @@ -190,8 +195,10 @@ close [open $portdbpath/incoming/subport-1_0.0.0.0.TMP w+] # create zip - #close [open $pwd/+CONTENTS w+] - #exec zip $portdbpath/incoming/subport-2_0.0.0.0.zip $pwd/+CONTENTS + set fd [open $pwd/+CONTENTS w+] + puts $fd "@portname subport" + close $fd + exec zip $portdbpath/incoming/subport-2_0.0.0.0.zip +CONTENTS close stderr portclean::clean_archive @@ -203,12 +210,16 @@ if {![file exists $portdbpath/incoming/test.clean]} { return "FAIL: removed unrelated file" } + if {[file exists $portdbpath/incoming/subport-2_0.0.0.0.zip]} { + return "FAIL: zip archive not removed" + } return "Clean archive successful." } -cleanup { + file delete -force $pwd/+CONTENTS file delete -force $portdbpath - file delete -force $pwd/file2 + file delete -force $pwd/file7 } -result "Clean archive successful."