[107832] branches/gsoc13-tests/tests/test/statefile-version1/test.tcl

[marius at macports.org]

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>