[107832] branches/gsoc13-tests/tests/test/statefile-version1/test.tcl
marius at macports.org
marius at macports.org
Sat Jul 6 10:30:42 PDT 2013
Revision: 107832
https://trac.macports.org/changeset/107832
Author: marius at macports.org
Date: 2013-07-06 10:30:42 -0700 (Sat, 06 Jul 2013)
Log Message:
-----------
Fixed statefile-v1 test and added new test case.
Modified Paths:
--------------
branches/gsoc13-tests/tests/test/statefile-version1/test.tcl
Modified: branches/gsoc13-tests/tests/test/statefile-version1/test.tcl
===================================================================
--- branches/gsoc13-tests/tests/test/statefile-version1/test.tcl 2013-07-06 17:28:32 UTC (rev 107831)
+++ branches/gsoc13-tests/tests/test/statefile-version1/test.tcl 2013-07-06 17:30:42 UTC (rev 107832)
@@ -16,19 +16,29 @@
port_desroot $path
port_clean $path
-proc statefile_v1 {} {
+proc statefile_v1 {warn} {
global path
global output_file
- set msg "*staging*destroot*"
+ if {[string compare $warn "no"]} {
+ set msg "*discarding previous state*"
+ } else {
+ set msg "*staging*destroot*"
+ }
set line [get_line $path/$output_file $msg]
return $line
}
-test envvariables {
+test warning_check {
Regression test for statefile-version1.
} -body {
- statefile_v1
+ statefile_v1 yes
+} -result "-1"
+
+test output_check {
+ Regression test for statefile-version1.
+} -body {
+ statefile_v1 no
} -result "---> staging statefile-version1 into destroot"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130706/de21fbfb/attachment-0001.html>
More information about the macports-changes
mailing list