[107803] branches/gsoc13-tests/tests/test/statefile-version2

[marius at macports.org]

Revision: 107803
          https://trac.macports.org/changeset/107803
Author:   marius at macports.org
Date:     2013-07-05 16:57:49 -0700 (Fri, 05 Jul 2013)
Log Message:
-----------
Added statefile-v2 test.

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

Removed Paths:
-------------
    branches/gsoc13-tests/tests/test/statefile-version2/Makefile
    branches/gsoc13-tests/tests/test/statefile-version2/master

Deleted: branches/gsoc13-tests/tests/test/statefile-version2/Makefile
===================================================================
--- branches/gsoc13-tests/tests/test/statefile-version2/Makefile	2013-07-05 23:55:22 UTC (rev 107802)
+++ branches/gsoc13-tests/tests/test/statefile-version2/Makefile	2013-07-05 23:57:49 UTC (rev 107803)
@@ -1,16 +0,0 @@
-include ../../../Mk/macports.autoconf.mk
-
-.PHONY: test
-
-$(bindir)/port:
-	@echo "Please install MacPorts before running this test"
-	@exit 1
-
-test:
-	@PORTSRC=$(PORTSRC) $(bindir)/port configure >/dev/null 2>&1
-	@cp statefile work/.macports.statefile-version2.state
-	@sed -i'' -E "s/@CHECKSUM@/`openssl dgst -sha256 Portfile | awk '{print $$2}'`/" work/.macports.statefile-version2.state
-	@PORTSRC=$(PORTSRC) $(bindir)/port destroot >output 2>&1 || (cat output; exit 1)
-	@diff -u master output || (echo "statefile version 2 wasn't outdated, but still triggered a rebuild"; exit 1)
-	@PORTSRC=$(PORTSRC) $(bindir)/port clean >/dev/null 2>&1
-	@rm output

Deleted: branches/gsoc13-tests/tests/test/statefile-version2/master
===================================================================
--- branches/gsoc13-tests/tests/test/statefile-version2/master	2013-07-05 23:55:22 UTC (rev 107802)
+++ branches/gsoc13-tests/tests/test/statefile-version2/master	2013-07-05 23:57:49 UTC (rev 107803)
@@ -1,2 +0,0 @@
---->  Building statefile-version2
---->  Staging statefile-version2 into destroot

Added: branches/gsoc13-tests/tests/test/statefile-version2/test.tcl
===================================================================
--- branches/gsoc13-tests/tests/test/statefile-version2/test.tcl	                        (rev 0)
+++ branches/gsoc13-tests/tests/test/statefile-version2/test.tcl	2013-07-05 23:57:49 UTC (rev 107803)
@@ -0,0 +1,36 @@
+package require tcltest 2
+namespace import tcltest::*
+
+source [file dirname $argv0]/../library.tcl
+
+makeFile "" $output_file
+makeDirectory $work_dir
+set path [file dirname [file normalize $argv0]]
+
+
+# Initial setup
+load_variables $path
+set_dir
+port_index
+port_config $path
+port_desroot $path
+port_clean $path
+
+proc statefile_v2 {} {
+    global path
+    global output_file
+
+    set msg "*staging*destroot*"
+    set line [get_line $path/$output_file $msg]
+    return $line
+}
+
+test envvariables {
+    Regression test for statefile-version1.
+} -body {
+    statefile_v2
+} -result "--->  staging statefile-version2 into destroot"
+
+
+cleanup
+cleanupTests
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130705/eb85e754/attachment-0001.html>