[107830] branches/gsoc13-tests/tests/test/statefile-version2/test.tcl

[marius at macports.org]

Revision: 107830
          https://trac.macports.org/changeset/107830
Author:   marius at macports.org
Date:     2013-07-06 10:20:52 -0700 (Sat, 06 Jul 2013)
Log Message:
-----------
Fixed statefile-v2 and added second test case.

Modified Paths:
--------------
    branches/gsoc13-tests/tests/test/statefile-version2/test.tcl

Modified: branches/gsoc13-tests/tests/test/statefile-version2/test.tcl
===================================================================
--- branches/gsoc13-tests/tests/test/statefile-version2/test.tcl	2013-07-06 16:51:01 UTC (rev 107829)
+++ branches/gsoc13-tests/tests/test/statefile-version2/test.tcl	2013-07-06 17:20:52 UTC (rev 107830)
@@ -13,22 +13,35 @@
 set_dir
 port_index
 port_config $path
+file copy -force $path/statefile $work_dir/.macports.statefile-version2.state
+exec sed -i'' -E "s/@CHECKSUM@/`openssl dgst -sha256 Portfile | \
+    awk '{print \$\$2}'`/" $work_dir/.macports.statefile-version2.state
 port_desroot $path
 port_clean $path
 
-proc statefile_v2 {} {
+proc statefile_v2 {arg} {
     global path
     global output_file
 
-    set msg "*staging*destroot*"
+    if {[string compare $arg "no"]} {
+        set msg "*discarding previous state*"
+    } else {
+        set msg "*staging*destroot*"
+    }
     set line [get_line $path/$output_file $msg]
     return $line
 }
 
+test statefile-v2-discard {
+    Regression test for statefile-version2 no discard.
+} -body {
+    statefile_v2 yes
+} -result "-1"
+
 test statefile-v2 {
     Regression test for statefile-version2.
 } -body {
-    statefile_v2
+    statefile_v2 no
 } -result "--->  staging statefile-version2 into destroot"
 
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130706/74bf56f1/attachment.html>